use POSIX;
use Time::Local;

print daterange();

sub daterange {
    my @dt = localtime;
    $dt[3] = 1;
    $dt[2] = 12;
    my $time = timelocal @dt;
    $time -= 24*60*60;
    @dt = localtime $time;
    my $ret = strftime("%d %b %Y", @dt);
    $dt[3] = 1;
    return strftime("%d %b %Y", @dt) . " - $ret";
}