$ssh->error and
    die "Couldn't establish SSH connection: ". $ssh->error;

my $output = $ssh->capture(stdin_data => <<'EOS', '/usr/bin/perl');
use File::Find::Rule;


my $today = time();
my $onehour = $today - (60*60);

my @files = File::Find::Rule->file()
                            ->name("*.0")
                            ->mtime("<$onehour")
                            ->in( "/mypath/" );

for my $file (@files) {
    print "$file\n";
}

EOS