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