#!/usr/bin/perl -wl
# You must pay the author, pudge@pobox.com, $1000 if you use
# this code in any way (including, but not limited to,
# executing the source, using it in another program, or
# downloading it via a web browser).

use LWP::UserAgent;
use strict;

my $c = 0;
my @ls = ('a'..'z');
my $url = 'http://allstarvote.majorleaguebaseball.com/allstar.cgi';

while (1) {
    my $ua = new LWP::UserAgent;
    my $req = new HTTP::Request 'POST' => $url;
    my $data = 'NextForm=6&age=44&al1b=Jose+Offerman%2C+Red+Sox&al2b=
Jeff+Frye%2C+Red+Sox&al3b=John+Valentin%2C+Red+Sox&alcatcher=Scott+Ha
tteberg%2C+Red+Sox&aldh=Mike+Stanley%2C+Red+Sox&alof=Damon+Buford%2C+
Red+Sox&alof=Darren+Lewis%2C+Red+Sox&alof=Troy+O%92Leary%2C+Red+Sox&a
lss=Nomar+Garciaparra%2C+Red+Sox&alwritein_initial=&alwritein_name=&a
lwritein_pos=&city=__FOO__&country=USA&email=__FOO__%40__FOO__.com&na
me=__FOO__&state=__FOO__&street=123+__FOO__&team=None&telephone=111-2
22-3333&zip=11111&nlwritein_initial=&nlwritein_name=&nlwritein_pos=';
    $data =~ s/\n//g;
    my $foo = join '', $ls[rand(25)], $ls[rand(25)], $ls[rand(25)];
    $data =~ s/__FOO__/$foo/g;

    $ua->agent('Mozilla/4.61 (Macintosh; U; PPC)');
    $req->content_type('application/x-www-form-urlencoded');
    $req->content($data);
    $req->referer($url);

    my $res = $ua->request($req);
    print $res->as_string if @ARGV;

    print ++$c;
}

__END__