Help for this page
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";
#!/usr/bin/perl -w use strict; ... print $l $d?"$P is leading by $d votes\n":"It's a tie!\n"; $l->close; }
www.com | www.net | www.org
No recent polls found