Help for this page

Select Code to Download

Select or download this
```
@list = grep{ (-M) <= 1} <*>;
```

Select or download this

our @list;
findrecent('*');
...
    findrecent( $_.'/*' ) if -d;
  }
}