List all installed perl modules

perl-modules.pl

#! /usr/bin/perl -l

use strict;
use warnings;
use File::Find;

my %seen;

for my $inc (@INC) {
    next unless (-d $inc);
    find(sub {
        my $file = $File::Find::name;
        if ($file =~ /\.pm$/) {
            my $module = substr($file, length($inc)+1);
            $module =~ s/.pm$//;
            $module =~ s{[\\/]}{::}g;
            $seen{$module}++;
        }
    }, $inc);
}

for my $module (sort keys %seen) {
    print "$module";
}