perl -e 'for (<*.log>) {print "$_\n" if -M $_ > 3}'

