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 ("$!");
}