print "private x ", (-f "/u/myself/somescrap/x.pm" ? "exists" : "doesn't exist"), "\n";
print "dir: $_\n" for @INC;
print "$_ found at $INC{$_}\n" for keys %INC;