my $output = $ssh->capture({stdin_data => <<'EOS'}, '/usr/bin/perl');
finder()
EOS

print $output