perldoc perlopentut has examples of reopening STD(OUT|ERR). You could also look at POSIX for its dup2().