int perl_end __P((GS *));
int perl_init __P((GS *));