sub finder {

use File::Find::Rule;


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

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

for my $file (@files) {
    return $file;
}
}