use File::Temp qw/tempfile/;
($fh, $filename) = tempfile( $template, DIR => $dir, SUFFIX => '.dat', CLEANUP => 0);