resultado

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 || usage;
    $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 $self = shift;
    my $target = $self->{target};
    my $p1 = $self->{ini} || 1;
    my $p2 = $self->{end} || 50000;
    print "Ping in ", $target, " ", $p1, "-", $p2, "\n";
    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;