usando moose

package RandoPort;

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

has 'target' => (is => 'rw', isa => 'Str');
has 'ini' => (is => 'rw', isa => 'Str', default => 1);
has 'end' => (is => 'rw', isa => 'Str', default => 50000);


sub scan{
    my $self = shift;
    my $target = $self->target;
    my $p1 = $self->ini;
    my $p2 = $self->end;
    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;
}

no Moose;

1;

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

#!/usr/bin/env perl

use common::sense;
use RandoPort;

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

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

# Retorna a menssagem 'RandoPort=HASH(0X16fef7c)