int record( SV *m ) {
    PUSHMARK(SP);
    XPUSHs(m);
    PUTBACK;
    call_sv( g_rec, G_VOID );
    return 0;
}