use File::Temp qw(tempfile);
my ($handle, $name) = tempfile();