Thanks, that pointed me to the right direction:

#!/usr/bin/env perl

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;

my @dates = map sprintf( "%02d/%02d/%04d", $month, $_, $year ), 1 .. $
+lday;
foreach my $date(@dates) {
    print $date."\n";
}
[download]