#!perl
use Cwd;
print "Content-type: text/plain\r\n\r\n";

print "Cwd=".cwd()."\n";
print "\@INC=('" . join("', '", @INC)."')\n";

eval "use lib qw(./lib);";
print "\@INC after use lib=('" . join("', '", @INC)."')\n";

eval "use Field;";
if ($@) {
  print "Failed to use Field.pm: $@\n";
} else {
  print "Field.pm loaded from $ENV{'Field.pm'}\n";
}