[bluethundr@lcent5-1:~/perl] $:./bad_ips.pl 
[bluethundr@lcent5-1:~/perl] $: