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