Well this is much simpler but this works:

#!/usr/bin/perl
use IO::Socket;
my ($line, $port, $sock, @servers);
my $VERSION='1.0';

($server = $ARGV[0]) || &usage;
$begin = ($ARGV[1] || 0);

for ($port=$begin;$port<=65000;$port++) {
        $sock = IO::Socket::INET->new(PeerAddr => $server,
                                        PeerPort => $port,
                                        Proto => 'tcp');
        if ($sock)      {
                print "Connected on port $port\n";
        } else {
                # print "$port failed\n";
        }
}  #  End for

sub usage       {
        print "Usage: portscan hostname [start at port number]\n";
        exit(0);
}
[download]