#!/usr/bin/perl -w

use strict;
use Socket;		# inet_aton();

my @ip = qw(10.10.10.2 10.10.10.12 10.10.10.4 10.10.10.254);

print join("\n", sort asIP @ip);

exit 0;

sub asIP {
	my $first = unpack('N', inet_aton($a));
	my $second = unpack('N', inet_aton($b));

	return $first <=> $second;
}
