some cgi program for perl