while (time < $selling_time) {
    next;
}

&sell($product);
[download]

Gosh, they're at it, do they never sleep?

(update: Anything from this guy seems to be hilarious, like this or this. Not perl-related though.)

/jeorgen