Some incredibly complex answers here for something that is really very simple.

use POSIX 'strftime';

# NOTE: 86_400 seconds in a day.
$yesterdays_month = strftime('%b', time - 86_400);
[download]

strftime and localtime work together really well in cases like this. Date::Manip is almost always far too big and slow for real work.

--
<http://www.dave.org.uk>

Perl Training in the UK <http://www.iterative-software.com>