use File::MkTemp;

$dir = '.'; # directory to create file in
$string = mktemp('tempXXXXXX',$dir);
open(F,$string);