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