Select Code to Download

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

#!/usr/bin/perl
use strict;
...
                if (stat($Find::File::name))[8] > time - 60*60*24*30
           }
      )