Help for this page
while(<$telnet>){ print STDERR $_; };
while(<$telnet2>){ print STDERR $_; };
while (<STDIN>){ print $_; };