RosettaCodeData/Task/Secure-temporary-file/Perl/secure-temporary-file-2.pl

use File::Temp;
$fh = new File::Temp;
print $fh->filename, "\n";
close $fh;