BEGIN {
    if (exists($INC{"Socket.pm"}) {
        if (defined($INC{"Socket.pm"}) {
            warn(">>> \"$INC{"Socket.pm"}\"\n");
        } else {
            warn(">>> undef\n");
        }
    } else {
        warn(">>> absent\n");
    }
}