Select Code to Download

#!/usr/bin/perl
#
...
      print "Can you hear me now?\n";
}
close   BADIPS;

[bluethundr@lcent5-1:~/perl] $:./bad_ips.pl 
Can you hear me now?

[bluethundr@lcent5-1:~/txt] $:ls -l bad_ips
-rw-r--r-- 1 bluethundr bluethundr 822 Jun  5 04:24 bad_ips