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