#Simple Port Scanner
## By Greg Thompson
use strict;
use Socket;
use warnings;
use 5.01;

my ($remote, $port, $iaddr, $paddr, $proto,
                    $i, $conn, $start, $stop);

if(@ARGV < 3)
{
    print "nsyntax: pscan address start_port end_portn";
    print "tExample: pscan google.com 79 85n";
    printf("a");
    exit;
}

chomp($remote = $ARGV[0]);
$start = $ARGV[1];
$stop = $ARGV[2];

$iaddr = inet_aton($remote) || die "No host: $remote";
$proto = getprotobyname("tcp");

socket(SOCK, PF_INET, SOCK_STREAM, $proto) || die "socket: $!";
print "-----Init Transmissionn";

for($i = $start;$i <= $stop;$i++)
{
    $paddr = sockaddr_in($i, $iaddr);

    if (connect(SOCK, $paddr)){
        print "$remote: $i is open.n"
    }
}
print "-----End Transmissionn";