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

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