Utiliser un fichier temporaire

Utiliser le module File::Temp et la fonction tmpnam qui va retourner un nom de fichier unique et sans risque :

#!/usr/local/bin/perl

use strict;
use File::Temp qw(:POSIX);


my $file = tmpnam();

print "$file\n";