push @dirs, '.' if ( $dirs[$#dirs] ne '.' );

##</code><code>##

Use of uninitialized value in string ne at file_crawl.pl line 56 (#1)