Hey guys/gals,
| I just wrote this lil' script this morning...
| Maybe, i thought, some AO members could use it...
| Not documented too well, sorry :-(
| hope you enjoy...

Code:
    use IO::Socket;
    my ($line, $port, $sock, @servers);

print "\n\tWideRange PortScanner\n";
print "\n\tThis Script was written in TampaBay\n";
print "\tunix.server\@netzero.com\n";
print "\nPlease enter Main IP Range\n";
print "\t???.???.???.___\n";
print "> ";

$iprange = <STDIN>;
chomp $iprange;
print "\nEnter Starting point\n\t___.___.___.???\n> ";
$ipstart = <STDIN>;
chomp $ipstart;
print "\nEnter Ending point\n\t___.___.___.???\n> ";
$ipend = <STDIN>;
chomp $ipend;
print "\nEnter Port to poke.\n> ";
$port = <STDIN>;
chomp $port;
		print "Action\tIP\t\tPort\tResult\n";
		print "------\t--\t\t----\t------\n";
    for ($i = $ipstart; $i <= $ipend ; $i++) {
		print "poking\t" . $iprange . $i . " ";
		$server = $iprange . $i;

		$sock = IO::Socket::INET->new(PeerAddr => $server,
    				 	PeerPort => $port,
    				 	Proto => 'tcp');
    		if ($sock)	{
                	print "\t$port\tpassed\n";
			# Add Code To Log IP
			# Add Code To Test Services
    		} else {
                	print "\t$port\tfailed\n";
    		}
    }  

print "\n\tDONE!\n";
-take it easy :-)