@time = localtime();
$time_string = sprintf "%02d.%02d.%04d %02d:%02d.%02d",
		$time[3], $time[4]+1, $time[5]+1900,
		$time[2], $time[1], $time[0];
print "$time_string\n";