Tue Nov 27 11:31:59 2001: "Module" Test
       ·   "installed into: /usr/lib/perl5/5.6.1"
       ·   "LINKTYPE: dynamic"
       ·   "VERSION: 1.18"
       ·   "EXE_FILES: "

       Tue Nov 27 11:32:07 2001: "Module" Test::SDK
       ·   "installed into: /usr/lib/perl5/5.6.1"
       ·   "LINKTYPE: dynamic"
       ·   "VERSION: 0.04"
       ·   "EXE_FILES: "

##</code><code>##

      Thu Dec  5 13:17:35 2002: "Module" Test::Simple
       ·   "installed into: /usr/lib/perl5/site_perl/5.6.1"
       ·   "LINKTYPE: dynamic"
       ·   "VERSION: 0.47"
       ·   "EXE_FILES: "

##</code><code>##

use strict;

if ($#ARGV < 0) {
   die "Usage: which.pl fname\n";
}

my $fname = $ARGV[0];

my $dir;
foreach $dir (@INC) {
   print "Checking $dir\n";
   if (-e "$dir/$fname") {
      print "Found $dir/$fname\n";
   }
}