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