http://www.perlmonks.org?node_id=881250

Q&A > dates and times > How do I incorporate a timestamp into a file name? - Answer contributed by DeadPoet

For a standard implementation that may be reused throughout the program:

Example

use Time::localtime; sub timestamp { my $t = localtime; return sprintf( "%04d-%02d-%02d_%02d-%02d-%02d", $t->year + 1900, $t->mon + 1, $t->mday, $t->hour, $t->min, $t->sec ); } print '[' . timestamp() . ']: my message'. "\n";

Output:

[2011-01-08_11-48-29]: my message