use File::Temp 'tempfile';
my ($fh, $filename) = tempfile();