$ cat /usr/local/bin/which.pl #!/usr/bin/perl -w my $pattern = shift || ''; $pattern =~ s{::}{/}g; # En unix ... my @dirs = @INC; for (@dirs) { my $file = $_."/".$pattern.'.pm'; print "$file\n" if (-e $file); $file = $_."/".$pattern.'.pod'; print "$file\n" if (-e $file); $file = $_."/pod/".$pattern.'.pod'; print "$file\n" if (-e $file); }El guión muestra todos los módulos con nombre dado asi como los PODs:
$ which.pl Test::More /usr/local/share/perl/5.8.4/Test/More.pm /usr/share/perl/5.8/Test/More.pm