touch -t 200205010000 /tmp/x
find /usr/lib/perl5/lib -anewer /tmp/x
rm /tmp/x

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use File::Find;

find ( sub {
             print $Find::File::name, "\n"
                if (stat($Find::File::name))[8] > time - 60*60*24*30
           }
      )