use File::Find;
use ExtUtils::MakeMaker;

find(
  sub {
    next unless /.pm$/i;
    my $mod = $File::Find::name;
    $mod =~ s/^$File::Find::topdir\/?//;
    $mod =~ s/\.pm$//i;
    $mod=~s!/!::!g;
    my $ver=MM->parse_version($File::Find::name);
    print "$mod ($ver)\n"
  },
  @INC
)