Perl basci Scan Port