#!/usr/bin/perl58

#use URI;

use File::Find;

use Cwd;

foreach $dir (@INC){

find(\&pms, $dir);

}

sub pms{

if(/\.pm/i){

$current_dir = cwd();

print "$current_dir $_\n";

}

}