See Duping filehandles and perldoc q dup.
In reply to Re: Can Perl read another terminals STDOUT? by zentara in thread Can Perl read another terminals STDOUT? by westrock2000