Select Code to Download

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

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

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