my $chan = $ssh2->channel();
#$chan->shell();
my $conn = Net::Telnet->new(Fhopen => $chan);