use File::Find;
$|++;
find sub { print "$File::Find::name\n" if $_ =~ /\.pm$/ }, @INC;
[download]

$|++;
while (@INC) {
    my $dir = shift @INC;
    opendir(MODDIR, $dir) or die "opendir $dir: $!";
    @allfiles = readdir MODDIR;
    foreach (@allfiles) {
        $file = "$dir/$_";
        next if $_ eq '.' or $_ eq '..';
        unshift @INC, $file if -d $file;
        print "$file\n" if $_ =~ m/\.pm$/;
    }
    closedir MODDIR;
}
[download]

-- Frag.

If you don't have File::Find, you might consider upgrading to a more recent version of Perl 5 (like, 1996 or later), File::Find is a core module. =)

MP