use File::Find::Rule; # find all the subdirectories of a given directory my @subdirs = File::Find::Rule->directory->in( $directory ); # find all the .pm files in @INC my @files = File::Find::Rule->file()->name( '*.pm' )->in( @INC ); # all those arrows - circle the wagons! (the procedural interface) my @files = find(file => name => '*.pm', in => \@INC);
