Select Code to Download

local *FH;
open (FH, ">/tmp/myprocess.tmp") || die "Cannot open temporary file: $
+!\n";
...
...

close FH;

use IO::File;
my $fh = IO::File->new("/tmp/myprocess.tmp", "w");
...

    $fh->close;
}

use Fcntl;
use POSIX;
...
do {
    $name = tmpnam();
} until sysopen(FH, $name, O_RDWR|O_CREAT|O_EXCL, 0666);

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