Для самых умных повторяю:
"Как на Perl`е узнать дату вчерашнего дня?"
Учитывая весокосность года и то, что сегодня может быть первое число.
Для Lion: Отними от 1 единицу.
Если у тебя получится хоть близкое к 28, 29, 30, 31,
то ты просто супер крутой!!!