#!/usr/bin/perl
use strict;
use warnings;
use 5.012;
use Time::Local qw( timegm_nocheck );

my ($y, $m, $d) = (localtime)[5,4,3];

my $start = scalar gmtime(timegm_nocheck(0,0,0, (1-1), $m-1, $y));
my $end  = scalar gmtime(timegm_nocheck(0,0,0, (1-1), $m, $y));

say "Today is " . localtime;
say join "\n", $start, $end;
[download]

** prints

Today is Fri Mar 11 11:56:50 2011
Mon Jan 31 00:00:00 2011
Mon Feb 28 00:00:00 2011
[download]