print "Host: ";
chop ($host = <STDIN>);
print "Port to start (1-66535): ";
chop ($start_port = <STDIN>);
print "Port to finish(1-66535): ";
chop ($last_port = <STDIN>);

    if ($start_port > $last_port) {
        print "Error! Start port cannot be bigger then end port. \n Pl
+ease re-enter start and end ports. \n\n";
    exit 1;
    }

    if ($start_port < 1) {
        print "[?] Start port cannot be less than 1. Try entering a di
+fferent number.";
    exit 1;
    }

    if ($last_port > 66535) {
        print "The maximun end port number is 66535 [..you gave $last_
+port]. \n\n";
    exit 1;
    }
    
$serverip= inet_ntoa((gethostbyname($host))[4]);
print "[*] Server's IP: [$serverip]\n";
print "[*] Scan Results: ";

open(O, ">>ScanLog.txt");
print O "\nYour target host was $host, at ",scalar(localtime), ":\n\n"
+;

while ($start_port <= $last_port) {
    $con = new IO::Socket::INET (PeerAddr => $host,PeerPort => $start_
+port,Timeout => 1, Proto => 'tcp');
    if (!($con)) {
        $start_port++;
    }
    else {
        $khost = $start_port;
        chomp($khost);
        %h;
        $h{'Echo [Returns what is sent to server]'} = {service => ['7'
+]};
        $h{'Discard [A sink, like /dev/null]'} = {service => ['9']};
        $h{'Systat [May be connected to system, w, or ps]'} = {service
+ => ['11']};
        $h{'Daytime [Sends time-of-day (date)]'} = {service => ['11']}
+;
        $h{'Netstat [Similar to systat]'} = {service => ['15']};
        $h{'ftpdata [Data connection from FTP server]'} = {service => 
+['20']};
        $h{'ftp [Control connection from FTP client (use SSH;)]'} = {s
+ervice => ['21']};
        $h{'telnet [Server port for Telnet (use SSH)]'} = {service => 
+['23']};
        $h{'smtp [Server port for SMTP (sendmail)]'} = {service => ['2
+5']};
        $h{'wins [WINS server often found here (not 1512)]'} = {servic
+e => ['42']};
        $h{'whois [whois server (rs.internic.net)]'} = {service => ['4
+3']};
        $h{'tacacs [TACACS authentication service]'} = {service => ['4
+9']};
        $h{'domain [Domain Name Service]'} = {service => ['53']};
        $h{'bootp [Usefull for probing networks (NIS name)]'} = {servi
+ce => ['67']};
        $h{'tftp [Unauthenticated file tranfer]'} = {service => ['69']
+};
        $h{'gopher [Safer if controlled using proxy servers]'} = {serv
+ice => ['70']};
        $h{'finger [Colecting usernames/passwords cracking information
+]'} = {service => ['79']};
        $h{'http [WWW, safer if controlled using proxy servers]'} = {s
+ervice => ['80']};

        
        foreach $key(keys %h)
            {foreach $service (@{$h{$key}{'service'}})
            {if($khost=~/^$service/)
            {chop($service) if ($service =~/\.$/);
            print "\n[!] Port: [$start_port] Service: $key";
            print O "[!] Port: [$start_port] Service: $key\n";
            $start_port++}}}}}
            
print O "\n ---------------------E-O-F------------------------\n";
close(O);
}