Help for this page

Select Code to Download


  1. or download this
    use File::Find;
find( sub { push @files, $File::Find::name if -f && /mail.log.*/ }, '.
+');
  2. or download this
    use File::Find;
use vars qw/*name/;
*name   = *File::Find::name;
find( sub { push @files, $name if -f && /mail.log.*/ }, '.');