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

In reply to Re: (1) line of sh vs (~20) lines of perl ? by Thelonius
in thread (1) line of sh vs (~20) lines of perl ? by mandog

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":