perl g.cgi