#!usr/bin/perl

use warnings;
use strict;
use IO::Socket; 

# Very Simple Scan Port Write in Perl
	
# MAIN PROG

print "Perl Scan Port V1.0\n\n";

# User Var

my $iptarget =  $ARGV[0];
unless($ARGV[0]){print "|MISSING IP ADRESS\n\n";exit;} 

print "Interesting ports on $iptarget\n\n"; 

print "PORT // STATE // SERVICE\n";

scan($iptarget);

print "Scan Finish\n";
exit;


# Scanning fonction

sub scan
{
    my ($inputtarget) = @_;

 
    for( my $iport = 0; $iport != 65537; $iport++)  
    {

	if ( my $remote = IO::Socket::INET->new(
		 Proto => "tcp",
		 PeerAddr => $inputtarget,
		 PeerPort => $iport,
		 Timeout => "5"
	     )){
	    
	    (my $name, my $aliases, my $port_number, my $protocol_name) = getservbyport( $iport , "tcp" );

	    if($name){ $name = $name;}else{$name = "NA";} 
 
	    print "$iport";print"     open";print"      $name\n";

	    close($remote);
	}
    }
}