Help for this page

Select Code to Download

Select or download this

use File::Find;

find(\&wanted, './');
...
    }
    close F;
}