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