open my $hold, '>&', STDOUT or die "Failed to dup STDOUT\n";
open STDOUT, '>', 'output.txt' or die "Failed to re-open STDOUT\n";

# later, if you want to restore STDOUT:
open STDOUT, '>&', $hold or die "Failed to restore STDOUT\n";