# 
my @time = (Mon,Mar,3,12:24:05,2012);
	if ($time[2] =~ /[\d]/) {
  $time[2] = "0$time[2]";}