...
my $date  = Time::Piece->strptime("32015", "%m%Y");