in reply to Fuzzy Logic Functions: An Overview
if (pop()) { while (1) { # infinite loop pop(); } } [download]
while (time < $selling_time) { next; } &sell($product); [download]
(update: Anything from this guy seems to be hilarious, like this or this. Not perl-related though.)
/jeorgen