$ perl -MO=Deparse,-p -e '($s,$m,$h,$md,$mo,$y,$w,$g,$i)=localtime;print $y+1900 . "." . ($mo+1) . ".$md." . ($h-5) . "$m\n";'
(($s, $m, $h, $md, $mo, $y, $w, $g, $i) = (localtime));
print((((((($y + 1900) . '.') . ($mo + 1)) . ".$md.") . ($h - 5)) . "$m\n"));

$ perl -MO=Deparse,-p -e '($s,$m,$h,$md,$mo,$y,$w,$g,$i)=localtime;print $y+1900 . "." . $mo+1 . ".$md." . ($h-5) . "$m\n";'
(($s, $m, $h, $md, $mo, $y, $w, $g, $i) = (localtime));
print(((((((($y + 1900) . '.') . $mo) + 1) . ".$md.") . ($h - 5)) . "$m\n"));