portscan.pl

#!/usr/bin/perl 
use IO::Socket; 
$| = 1; 
$target = "172.18.0.2";
$start_port = "1";
$end_port = "10000"; 
foreach ($port = $start_port ; $port <= $end_port ; $port++) 
{
    #\r will refresh the line
    print "\rScanning port $port";
     
    #Connect to port number
    $socket = IO::Socket::INET->new(PeerAddr => $target , PeerPort => $port , Proto => 'tcp' , Timeout => 1);
     
    #Check connection
    if( $socket )
    {
        print "\r = Port $port is open.\n" ;
    }
    else
    {
        #Port is closed, nothing to print
    }
}
 
print "\n\nFinished Scanning $target\n";
 
exit (0);