/usr/share/doc/libnet-ssh2-perl/examples/rt58911.pl is in libnet-ssh2-perl 0.63-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 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | #!/usr/bin/perl -W
use strict;
use Fcntl;
use warnings FATAL => qw (all);
use Getopt::Std;
use Net::SSH2;
use 5.010;
my %opts = (h => 'localhost');
getopts('h:u:p:', \%opts);
my ($hostname, $user, $password) = @opts{qw(h u p)};
my $fn = shift // die "filename argument missing";
my $ssh2 = Net::SSH2->new();
sub ssh2_die { die join(': ', @_, join('|', $ssh2->error)) }
$ssh2->debug(1);
$ssh2->connect($hostname)
or ssh2_die("connect failed");;
$ssh2->auth(username => $user, password => $password)
or ssh2_die('auth failed');
my $sftp = $ssh2->sftp()
or ssh2_die("sftp failed");
my $remote = $sftp->open($fn, O_WRONLY | O_CREAT | O_TRUNC);
my $str = 'A' x 327480;
my $bytes = print $remote $str;
say "print returned $bytes, expected " . length($str);
|