BEGIN { warn $0 };
use lib $0;
print $_,$/ for @INC;
__END__