open my $output, '>&', *STDOUT or die $!;
close *STDOUT;
print {$output} "This prints OK\n";