http://search.cpan.org/perldoc?File%3A%3ATemp use strict; use utf8; use Date::Calc qw/Today_and_Now/; use File::Temp qw/tempfile/; my $now_str = sprintf("FILE_HEAD_%04d%02d%02d_%02d%02d%02d",Today_and_Now()); my ($fh, $filename) = tempfile…