Help for this page
my $fp = \&by_ip; print $fp->(@input); ... sort map { pack('A4A*',inet_aton((split /\s/,$_,2)[0]),$_) } @_; }