Select Code to Download

while(<STDIN>) {
  chomp;
...
  }
}
exit(1);

while(<STDIN>){$_="host ".join'.',map{s/(\d+)/$1/}split
/./."$ARGV[0] 2>&1";`$_`=~/$ARGV[1]/m&&exit 0}exit 1

while (<STDIN>) {
  $_= "host " .
...
  `$_` =~ /$ARGV[1]/m && exit 0
}
exit 1