Help for this page

Select Code to Download

Select or download this

my $out = $ssh->capture({stdin_data => <<'EOS'}, '/usr/bin/perl');
# Your remote script goes here:
...
use POSIX qw(strftime);
...
EOS

Select or download this

my $sftp = $ssh->sftp;
my $now = time;
...
                            $e->{a}->mtime + 3600 >= $now or return;
                            1
                        });