Select Code to Download

my $fp = \&by_ip;
print $fp->(@input);

...
        sort
        map { pack('A4A*',inet_aton((split /\s/,$_,2)[0]),$_) } @_;
}