perl -MFile::Find -le 'find( sub { print if !-l && -M > 30}, @ARGV)'