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