use Date::Simple qw(today);
my $yesterday = today() - 1;
print $yesterday->format("%B %d");
[download]