my ($ss, $min, $hh, $dd, $mm, $yyyy) =
      map({$_ < 10 ? '0' . $_ : ''.$_} localtime);
$yyyy += 1900;
print "$ss, $min, $hh, $dd, $mm, $yyyy\n";