#!/usr/bin/perl

$_ = `lynx -dump http://www.cnn.com/ELECTION/2000/results/FL/index.html`;
push @c, (/(Bush).{4}([0-9,]{9})/s), (/(Gore).{4}([0-9,]{9})/s);
tr/,//d for @c[1,3];
$d = "$c[0] leads $c[2] by @{[$c[1] - $c[3]]} votes!";
$d = "It's a tie!" if $c[1] == $c[3];
die if !open(I, "vote.log");
chomp($_ = $i) while ($i = <I>);
exit if (/$d$/);
die if !(open(O, ">>vote.log"));
$i = localtime();
print O ("$i\n$d\n");
die if !open(A, "addresses");
die if !open(S, "|/usr/lib/sendmail -t");
print S <<E;
Subject: Vote results as of $i
Bcc: @{[<A>]}
$d
E