Try this ... If you want to find files older than 30 days.

use Data::Dumper;
my @list=`find . -type f -mtime +30`;
print Dumper \@list;
[download]

The above code will list out all the files older than 30 days.
You can specify the directory name as  @list=`find /home/abc/dir1/dir2/ -type f -mtime +30`;