Help for this page

Select Code to Download

Select or download this

use File::Find::Rule qw( );

...
            ->file()
            ->name( '.*' )
            ->in( $base_dir );