$a = (localtime)[1];
while (length($a) lt 2) { $a = "0$a"; }