if ($month =~ /^\d$/) { 
  $month = '0' . $month;
}