Select Code to Download

my $ssh = Net::OpenSSH->new('user@1.1.1.2');
my ($socket, $pid) = $ssh->open_tunnel('1.2.0.1', 23);
...
my @lines = $telnet->cmd("who");
print Dumper(@lines);
$telnet->close;