#!C:/Perl/bin/perl
use File::Find;
find sub{
	$file = $File::Find::name;
	$file =~s/\//\\/g;
	-f && m/.*\.pm$/ && print "$file\n";
}, @INC;