use strict;

use ExtUtils::Installed;

my $module;
my $inst = ExtUtils::Installed->new();
my (@modules) = $inst->modules();
	foreach $module (@modules) {
		print "$module \n";
}

##</code><code>##

use strict;

use File::Find;
           my @files;
 
           find sub { push @files, $File::Find::name if -f _ && /\.pm$/ },
                @INC;

my ($mod, $hash, $name);
my (@results, %hash, @results2);  
@results = map {/.+\/.+\/(.*).pm$/} @files;

$hash{$_}++ foreach (@results);
foreach (sort keys %hash) {
	print "$_.pm \n";
}