Select Code to Download

#!/usr/bin/perl

...
   my $ip_address = inet_ntoa($packed_ip);
   print $ip_address, "\n";
}

#!/usr/bin/perl 

...
foreach(@addrs) {
    print "\t$_\n";
}