#!/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::Simple;
($fight, $vote, $round) = @ARGV;
$vote  ||= 2;
$fight ||= 1;
$round ||= 4;
$url = "http://www.mtyson.com/boxing/voting/?vote=$vote&fight=$fight&round=$round";

print "Fight: $fight, Vote: $vote, Round: $round\n";
$x = 1;

while (1) {
    get($url);
    print $x++;
}

__END__