#!/usr/bin/perl

use File::Find::Rule;
use POSIX qw(strftime);


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";
}

##</code><code>##

use Net::OpenSSH;

my $dir = '/mypath';
my $host = 'myhost';

my $ssh = Net::OpenSSH->new($host, user => adm_garcimo);
  $ssh->error and
    die "Couldn't establish SSH connection: ". $ssh->error;