#!/usr/local/bin/perl -w
use strict;
use File::Find;

find { wanted => sub { print if /\.pm$/ }, no_chdir=>1} $dir foreach my $dir @INC;