substr($month,0,1,"0$month") if ($month<10 && $month!=/^0/);


##</code><code>##

Use of uninitialized value in pattern match (m//) at -e line 3.
0077