http://qs321.pair.com?node_id=639246


in reply to Recursively changing STDOUT

moritz gave you half the answer. The one thing remaining, is reopening STDOUT, STDERR with the $SAVEOUT, $SAVEERR. The three-argument open covers that:

open(STDOUT, '>&', $SAVEOUT) or die ... open(STDERR, '>&', $SAVEERR) or die ...

print "Just another Perl ${\(trickster and hacker)},"
The Sidhekin proves Sidhe did it!