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

##</code><code>##

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