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";
   }
}