[Ajuda]

package RandoPort;

use common::sense;
use IO::Socket::INET;

sub usage{
    say 'Insert a Target';
}

sub new{
    my $class = shift;

    my $self = {};
    $self->{target} = undef;
    $self->{ini} = undef;
    $self->{end} = undef;
    bless ($self, $class);
    return $self;
}

sub target{
    my $self = shift;
    $self->{target} = shift if @_;
    return $self->{target};
}

sub ini{
    my $self = shift;
    $self->{ini} = shift if @_;
    return $self->{ini};
}

sub end{
    my $self = shift;
    $self->{end} = shift if @_;
    return $self->{end};
}

sub scan{
    my $target = ⌖
    my $p1 = &ini || 1;
    my $p2 = &end || 50000;
    print "Ping in ", $target, " ", $p1, "-", $p2, "\n"; #para debug
    my $out;
    for ($p1..$p2){
        print "ping in $_\n";
        my $t = $target . ":" . $_;
        my $sock = IO::Socket::INET->new($t);
        if ($sock){
            $out .= $_ . ' ';
        }
        else{
            print $_, " close\n";
        }
    }
    #print $_ foreach (@self);
    return $out;
}

1;


######################################################################################
#

#!/usr/bin/env perl

use common::sense;
use RandoPort;

my $n = RandoPort->new();
$n->target('www.google.com.br');
$n->ini('60');
$n->end('80');
$n->scan;

######################################################################################
#

# sai 'Print in www.google.com.br 1-50000
# ou seja, ele não esta aceitando eu indicar as portas,
#esta escaneando as que estão de default