in reply to Shorter Formating?

Try 
use POSIX;
my $changedate = strftime "%Y-%m-%d %T", localtime();

[download]

In Section Seekers of Perl Wisdom