#!/usr/bin/env perl
# $Id: sort-ipaddr,v 1.1 2003/07/18 17:28:16 friedman Exp $

use Socket;
print map { inet_ntoa ($_) . "\n" } (sort map { chop; inet_aton ($_) } <>);