#!/usr/bin/perl
#finds files older than 30 days
use warnings;
use strict;
use File::Find;

my $top = shift || ".";

find sub {return unless -f;
if (-M _ > 30){print "$File::Find::dir/$_\n"}
}, "$top";