open(TMP, "+>", undef) or die ...

##</code><code>##

open($fh, '>', \$variable) || .. 

##</code><code>##

.