Select Code to Download

use IO::File;
my $fh = IO::File->new_tmpfile();

use POSIX;
my ($tmpfh, $name);
...
    or                       # if error, then
        $! !~ m/File exists/ # try again if bad name
        &&  die $!;          # else die