Select Code to Download

perl -Mstrict -MLWP::Simple -we "$_=get('http://www.cnn.com');($a)=/Go
+re\D*(2\d\d)<\/span>/m;($b)=/Bush\D*(2\d\d)<\/span/m;print+($a>270?'G
+ore Wins':$b>270?'Bush Wins':'Undecided'),$/;"

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