perl -Mstrict -MLWP::Simple -we "{$_=get('http://www.cnn.com');($a)=/Gore\D*(2\d\d)<\/spa/m;($b)=/Bush\D*(2\d\d)<\/spa/m;$@=($a>270?'Gore Wins':$b>270?'Bush Wins':0);die `echo $@ | mail -s Results adam@perlmonks.org`,$@,$/ if $@; sleep 600; redo}"