Select Code to Download

#!/usr/bin/perl -l
use DateTime;
...
  print $date->mdy('/');    # And show it
}

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;