###################################################
#Simple script to generate network traffic	  #
#Use at your own risk				  #
#Written by Paul Battista, SecurityExperiment.com #
#Paul [at] securityexperiment.com 		  #
###################################################

$|++; # Turn off output buffering

my $host; # host to be targeted
my $port; # port to be targeted
my $open; # if port is open
 
use IO::Socket;
 
print "Please enter the host you wish to target:\n";
 
chomp($host=<STDIN>);

print "Please enter the port you wish to target:\n";
 
chomp($port=<STDIN>);
 
print "The following IP address will be targeted:\n$host:$port\n";
print "Press CRTL-C to cancel at any time...\n";
 
sleep(5);
 
while($port=$port){ 			#infinite loop
print "Targeting $host:$port\n";
 
$open=eval
{
$socket=new IO::Socket::INET 		#opens a socket
(
PeerAddr=>$host,
PeerPort=>$port,
Proto=>getprotobyname('tcp')||6 	#TCP socket
)
};
 
if($open)
{
print "$port open\n";

}
close($socket);

};