7 lines
159 B
Perl
7 lines
159 B
Perl
|
use File::Temp qw(tempfile);
|
||
|
|
$fh = tempfile();
|
||
|
|
($fh2, $filename) = tempfile(); # this file stays around by default
|
||
|
|
print "$filename\n";
|
||
|
|
close $fh;
|
||
|
|
close $fh2;
|