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

##</code><code>##

Can't locate object method "FILENO" via package "Net::SSH2::Channel" at /usr/lib/perl5/site_perl/5.8.8/Net/Telnet.pm line 560.