in reply to Yesterday Date
my $wday = (localtime);
my $offset = $wday == 1 ? 3 : ($wday == 0 ? 2 : 1);
my @date = localtime(time - 86400*$offset);
printf "%s-%s-%s\n", 1900+$date, 1+$date, $date;
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 (432 votes). Check out past polls.