use strict;
use warnings;
use Time::Piece qw();

my $t = Time::Piece->new();
my $month   = $t->mon;
my $year    = $t->year;
my $lday    = $t->month_last_day;

for (1 .. $lday) { 
    printf "%02d/%02d/%04d\n", $month, $_, $year;
}

__END__
03/01/2014
03/02/2014
...
03/31/2014