typedef struct {
       ...
       char *line ;
       ...
} parse_data ;

parse_data pd ;


##</code><code>##

     pd.line = strdup(s) ;

##</code><code>##

void
get_line ()
       PPCODE:

       EXTEND(SP, 1) ;
       PUSHs (sv_2mortal(newSVpv(pd.line,0))) ;
       free (pd.line) ;
       pd.line = 0 ;

##</code><code>##

emergency_sbrk(blah)
morecore(blah)
Perl_sv_grow(blah)
Perl_sv_catpvn(blah)
Perl_pp_concat(blah)
Perl_runops_standard(blah)