use LWP::Simple;$_=get('http://www.cnn.com');($P,$u,$l)=m~(Bush|Gore)</\S+\s*<td\s*\S+ \S+edhead">([\d,]{9}).*?([\d,]{9})~s;$u=~s/,//g;$l=~s/,//g;$d=$u-$l;print$d?"$P leads by $d votes!\n":"Tie!\n";

##</code><code>##

#!/usr/bin/perl -w
use strict;
use LWP::Simple;
use Mail::Mailer;

my($P,$u,$l)= get('http://www.cnn.com')=~
        m~(Bush|Gore)</\S+\s*<td\s*\S+ \S+edhead">([\d,]{9}).*?([\d,]{9})~s;

$u=~s/,//g;
$l=~s/,//g;
my $d=$u-$l;

print $d?"$P is leading by $d votes\n":"It's a tie!\n";

open(F,(-f'votes'?"+<":">")."votes");
my @v=<F>;
chomp(@v);

if ((split(/\t/,$v[-1]))[2]!=$d) {
        print F localtime()."\t$P\t$d\n";
        open(F,"<emails");
        chomp(@v=<F>);
        $l = new Mail::Mailer;
        $l->open({To=>join(",",@v)});
        print $l $d?"$P is leading by $d votes\n":"It's a tie!\n";
        $l->close;
}