use File::Temp (qw/tempfile/);
($fh,$fname) = tempfile('quanta-XXXX')
    or die "Couldn't create temp file $fname\n";