Simple Perl port scanner