while(<$telnet>){
print STDERR $_;
};

##</code><code>##

while(<$telnet2>){
print STDERR $_;
};

##</code><code>##

while (<STDIN>){
print $_;
};