use Date::Manip;
$yesterday = UnixDate(ParseDate("yesterday"), "%B %E, %Y");
print "$yesterday\n";
[download]

will print "June 21st, 2001"

so......

use Date::Manip;
$yesterday = UnixDate(ParseDate("yesterday"), "%B");
print "$yesterday\n";
[download]

will print "June"