Ports scan em Perl by hacker constantin

[hacker constantin]

Ola Pessoal Estou sem nada pra fazer hj e resolvi fazer um Ports scan (Scanner de portas) na linguagem perl.
só pra estudos .
é que nao tem muito tutorial em perl em portugues entao eu fiz esse scanner.

#!/usr/bin/perl
use IO::Socket;
use Term::ANSIColor;
system('clear');
#trocar cls por clear se estiver em linux
print color 'bold red';
print "\n_______________________
< Hello !! Welcome !! >
-----------------------
| ____ |=======================================
||____ | MultiScanner De Portas. |
|__| \ | by -constantin- |
||--|| | v1.0 |
| | _) |______________________________________|
__ `__ \ _ \ __| _` | __| __ \ | _ \ | __| |
| | | __/ | ( |\__ \ | | | ( | | | |
_| _| _|\___|\__|\__,_|____/ .__/ _|\___/ _|\_|
_| Scanner v 1.0\n\a";
print color 'reset';
print "\n[*]Digite o ip (alvo)\n";
$ip =<STDIN>;
chop $ip;
print "\n[*]Digite a porta inicial\n";
$start =<stdin>;
chop $start;
print "\n[*]digite a porta final\n";
$exit =<stdin>;
chop $exit;
print "\n[*]Digite o nome do protocolo\n";
$protocolo =<stdin>;
chop $protocolo;
print "\n--> iniciando scanner\n";
#Verificando
foreach($port = $start;$port <=$exit;$port++)
{
print "\nscanneando portas $port";
$socket = IO::Socket::INET->new(PeerAddr => $ip , PeerPort => $port , Proto => $protocolo , Timeout => 1);
if ($socket) {
print color 'bold green';
print " \n = porta $port aberta\n\n";
print color 'reset';
open(NOTEPAD,">>Logs.TXT");
print NOTEPAD "Porta Aberta:$port, ";
close(NOTEPAD);
} else {
#
}
}
print "\nFim de scanner $ip\n";
print color 'bold green';
print "\nUm Logs foi salvo automaticamente\n";
print color 'reset';
exit;