一時ファイルの作成

　File::Tempで簡単に一時ファイルを作れます。ファイルハンドルとファイル名を取得できます。

use strict;
use warnings;
use File::Temp;

my ($fh, $filename) = File::Temp::tempfile();
print $filename, "\n";