sv = newSV( 0 );
    SvUPGRADE( sv, SVt_PVGV );

##</code><code>##

    GvGP(sv)         = Perl_calloc( 1, sizeof(GP) );
    GvHV(sv)         = hash;            // A hash I want to be global
    GvEGV(sv)        = (GV *) sv;
    GvREFCNT(sv)     = 1;

    hv_store( hStash, "TestGlobal", strlen("TestGlobal"), sv, 0 );