Select Code to Download

use DateTime;
my $dt = DateTime->now;
my $file = 'foo_' . $dt;
print $file;

foo_2015-08-06T17:05:17

$dt = DateTime->now( time_zone => 'local' );

my $dt = DateTime->now(time_zone => 'local')->strftime("%Y-%m-%d-%k-%M
+-%S");

2015-08-06-10-42-18