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

##</code><code>##

    close STDOUT;
    open STDOUT, '>', \$variable or die "Can't open STDOUT: $!";