Select Code to Download

#!/usr/bin/perl -w

...
my $ip = inet_ntoa($i);

print "Failure!\n" unless ( $ip );