my $sftp = $ssh->sftp;
my $now = time;
my @files = $sftp->find("/mypath",
                        wanted => sub {
                            my $e = $_[1];
                            $e->{filename} =~ /\.0$/ or return;
                            $e->{a}->mtime + 3600 >= $now or return;
                            1
                        });