... and you're wanting to know how to do *what* ?

Perhaps sprintf() might be your friend:

my @parts = localtime(time);
my $now = sprintf('%04d-%02d-%02d %02d:%02d:%02d', $parts[5]+1900,
  $parts[4]+1, $parts[3], $parts[2], $parts[1], $parts[0]);

print "The current date/time is $now.\n";
[download]