perl some.cgi