#!/usr/bin/perl -w
# NAME:    Installed Perl Modules Listing
# AUTHOR:  AltBlue <altblue@n0i.net>
# VERSION: 2001031201
#######################################

use strict;
use File::Find;
use ExtUtils::MakeMaker ();

@INC = grep !/^\.$/, @INC;
foreach my $base (sort @INC) {
 find( {
    no_chdir   => 1,
    preprocess => sub { return sort @_ },
    wanted     => sub {
      $File::Find::prune = 1, return
        if grep(/^$File::Find::dir$/, @INC) && $File::Find::dir ne $base;
      s/\.pm$// or return;
      s!^$base/+!!;
      s!/!::!g;
      print $_, ' [';
      print MM->parse_version($File::Find::name)||'unknown', ']', $/;
    }
  }, $base);
}