#!/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";
}