Super Search is your friend. The docs for File::Find, File::Find::Rule, and open should get you started. If you are still having problems with your code after you read those, post back with the snippet that's giving you trouble.

HTH,

You have to take a look at stat, opendir, open and File::Find::Rule. By using those mentioned functions and module, you can achieve your target. As planetscape++ said, you have to try to write the code and post the code if you have any problem. Below is a sample code.

use strict;
use warnings;
use File::Find::Rule;

my ($filename, $giventime, $directoryname);

my @files = File::Find::Rule->file()
                              ->name( "$filename" )
                              ->ctime ("< $giventime")
                              ->in( "$directoryname" );
                              
for my $file (@files)
{
    open ($fh, '<', $file) or die ("$!");
}
[download]

update: Added code

perl -e '$name = shift || die "name?!"; $dir = shift || "."; $time = s
+hift || 1; while(<$dir/*
>){open FILE, $_ if scalar localtime((stat)[10]) < $time && /$name/}' 
+test . 123
[download]

Cheers
Chris