use File::Temp qw(tempfile);
my ($fh, $filename) = tempfile( DIR => $tmpdir );