This is a little harder to understand... ;-)
$|++;$.="Just another Perl hacker ";while(!select
Disclaimer: I might be using the terminology for references and/or typeglobs wrongly here, please correct me if that is the case.
Once (shame on you!)
Twice (shame on me!)
More often than I'd like to be
All the time
Just when answering stupid polls
Who you callin' a fool?
I refuse to vote in this ridiculous poll
Results (443 votes). Check out past polls.