#!/usr/bin/perl

if ($ARGV[0]) { $time=$ARGV[0] }
         else { $time=time();  }

($sec, $min, $hour, $mday, $mon, $year) = localtime($time);
# print "Starting with \$year=$year, \$mon=$mon, \$mday=$mday, \$hour=$hour, \$min=$min, \$sec=$sec, \n";

$timestamp= (1900+$year) . "." . ($mon<9?"0":"") . ($mon+1) . "." . ($mday<10?"0":"") . $mday;
$timestamp.="." . ($hour<10?"0":"") . "$hour:" . ($min<10?"0":"") . "$min:" . ($sec<10?"0":"") . $sec;

print "$timestamp\n";