#!/usr/bin/perl -w
use File::Find;
find( sub { print "$_\n" if !-l  && -M > 30 }, @ARGV);