#!/usr/bin/perl

# Provide a list of all the Perl module filenames for a system

# Version: 1.0
# Date: 2007-10-23

# Source: perlfaq3 - perldoc.perl.org
# Source URL: http://perldoc.perl.org/perlfaq3.html#How-do-I-find-which-modules-are-installed-on-my-system%3F

    use File::Find;
    my @files;

    find(
      sub {
      	push @files, $File::Find::name
      		if -f $File::Find::name && /\.pm$/
      	},

      @INC
      );

	print join "\n", @files;
