sidburn@sid:~/perl/netip$ time ./ip.pl 

real	0m10.209s
user	0m10.201s
sys	0m0.000s