use IO::File; 
    $fh = IO::File->new_tmpfile() 
            or die "Unable to make new temporary file: $!";

    use Fcntl; 
    use POSIX qw(tmpnam); 
  
    # try new temporary filenames until we get one that didn't already 
    # exist;  the check should be unnecessary, but you can't be too careful 
    do { $name = tmpnam() } 
        until sysopen(FH, $name, O_RDWR|O_CREAT|O_EXCL); 
  
    # install atexit-style handler so that when we exit or die, 
    # we automatically delete this temporary file 
    END { unlink($name) or die "Couldn't unlink $name : $!" } 
  
    # now go on to use the file ...

    BEGIN { 
        use Fcntl; 
        my $temp_dir = -d '/tmp' ? '/tmp' : $ENV{TMP} || $ENV{TEMP}; 
        my $base_name = sprintf("%s/%d-%d-0000", $temp_dir, $$, time()); 
        sub temp_file { 
            local *FH; 
            my $count = 0; 
            until (defined(fileno(FH)) || $count++ > 100) { 
                $base_name =~ s/-(\d+)$/"-" . (1 + $1)/e; 
                sysopen(FH, $base_name, O_WRONLY|O_EXCL|O_CREAT); 
            } 
            if (defined(fileno(FH)) 
                return (*FH, $base_name); 
            } else { 
                return (); 
            } 
        } 
    }