#!/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
           }
      )