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