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($now_str ."_XXXXXXXXXX",TMPDIR=>1);
のようにテンプレートを指定して書くと、一時ファイルの名称を
/tmp/FILE_HEAD_20150408_124408_HfsJ7MjaZF
のようにもできます。
( HfsJ7MjaZF の部分がランダム文字列 )