--
#!/usr/local/bin/perl
$str = "1=8&submit=Cast%20Vote&id=180"; while(1) { if($pid = fork) { $SIG{ALRM}
= sub{ kill 9, $pid; }; alarm 5; wait; alarm 0; } else { exec 'lynx', '-dump',
"http://www.accessatlanta.com/cgi-bin/poll/poll.cgi?$str"; exit; } } #go buzz!
No comments:
Post a Comment