SV* new(char* class, char* name, char* rank, long serial) {
    Soldier* soldier;
    SV *ret, *temp = newSViv(0);
    New(42, soldier, 1, Soldier);

    soldier->name = savepv(name);
    soldier->rank = savepv(rank);
    soldier->serial = serial;

    ret = sv_setref_pv(temp, class, (void *)soldier);

    SvREADONLY_on(temp);
    SvREADONLY_on(ret);

    return ret;
}