open( $fh, '+>', undef ) || die $!;


##</code><code>##

open( $fh, '>', \$variable ) || die $!;