my ( undef, $m, $h, $dy, $mo, $yr ) = localtime;

print sprintf "%d-%02d-%02d %02d:%02d\n", $yr + 1900, $mo + 1, $dy, $h, $m;