Perhaps it's my bleary eyes not working this morning, but I can't quite see what the Perl question is. I also don't think it's especially ethical to be using random hosts on the internet to conceal your attempts at port scanning others...