my $month = 7;
$month = sprintf "%02d", $month;