A little shorter and less temp vars?

my @dt = localtime ( time());
my$changedate  = sprintf  "%4d-%02d-%02d %02d:%02d:%02d",
        ($dt[5] + 1900),($dt[4]+1), (@dt)[3,2,1,0];
[download]