#!/usr/bin/perl -w
local (*SAVED_STDOUT);
open (SAVED_STDOUT, ">&STDOUT");

print "Roo";
close STDOUT;

open (STDOUT , ">>foo.bar") || die "$!";
print "s";
close STDOUT;

open(STDOUT, ">&SAVED_STDOUT");

print "ters\n