/usr/share/doc/libnet-openssh-perl/examples/net-telnet.pl is in libnet-openssh-perl 0.62-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | #!/usr/bin/perl
use strict;
use warnings;
use Net::OpenSSH;
use Net::Telnet;
$Net::OpenSSH::debug = -1;
my $ssh = Net::OpenSSH->new('localhost');
my ($fh, $pid) = $ssh->open2pty();
my $conn = Net::Telnet->new(Fhopen => $fh);
my @lines = $conn->cmd("find /tmp");
print @lines;
my @lines1 = $conn->cmd("ls");
print "\n\nls:\n", @lines1;
|