#!/usr/bin/perl
#
# Author: Premson P R
#
# Description: Perl Code To Check For Open Ports From A System
#

use IO::Socket;

my ($line, $port, $sock, @servers);
my $VERSION='1.0';

($server = $ARGV[0]) || &usage;
$begin = ($ARGV[1] || 0);
for ($port=$begin;$port<=65000;$port++)	
{
    	print "Scanning Port $port\n";
    	$sock = IO::Socket::INET->new(PeerAddr => $server,
    				 	PeerPort => $port,
    				 	Proto => 'tcp');
    	if ($sock)	
    	{
    		print "Port $port Found Open\n";
    	} 
} 
 
sub usage	
{
    	print "Usage: portscan hostname [start at port number]\n";
    	exit(0);
}