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

##</code><code>##

$month = sprintf("%02d", $month);