Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    use File::Find;
    find( sub { print "$_\n" if !-l  && -M > 30 }, @ARGV);
    
  2. or download this
    perl -MFile::Find -le 'find( sub { print if !-l && -M > 30}, @ARGV)'