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

my @files = File::Find::Rule
            ->file()
            ->name( '.*' )
            ->in( $base_dir );