use DateTime;

my $date = DateTime->last_day_of_month( year => 2006, month => 12 );
print $date->add( months => 1, end_of_month => 'preserve' )->mdy('/') foreach 1..12;