#!/usr/bin/perl -w
open I,"lynx -dump http://www.cnn.com/ELECTION/2000/results/FL/index.html|";while(<I>){@j=split;if($j[1]){$j[1]=~s/,//g;} if(/Bush/){$b=$j[1];} elsif(/Gore/){$g=$j[1];}} close I;open O,">log";$d=abs($b-$g);if($b==$g){$r="tied!\n";} $b<$g ? $r="Gore: $d\n" : $r="Bush: $d\n";print O "$r";close O;open F,"mfile";$m=<F>;close F;open M,"|sendmail -t";print M <<E;
Subject: results
Cc: $m
$r
E
close M; exit