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