$fh = File::Temp->new(SUFFIX=>'.txt');
$tempfile = $fh->filename;