in reply to rerouting STDOUT
After
open ($oldout,'>&',\*STDOUT);
$oldout is a copy of STDOUT, which can now be safely closed or redirected and later restored by reversing the copy.
Cheers Rolf
( addicted to the Perl Programming Language)