parse.perl
#!/usr/local/bin/perl
require "/export/home/http/cgi-bin/cgi-lib.pl";
MAIN:
{
&ReadParse;
printf("Content-type: text/html\n\n");
printf("<html>\n<head><title>Parsing parameters from GET method</title></head>\n");
printf("<body bgcolor=#ffffff>\n<h1>The parameters for this CGI:</h1>\n");
foreach $k (keys(%in)) {
printf(" variable <b> %s </b> = %s <br>\n",$k,$in{$k});
}
printf("<hr> Thank you user from %s.<br>\n",$ENV{REMOTE_ADDR});
printf("%s wishes you Good Luck with your CGI programming.<br>\n",$ENV{SERVER_NAME});
printf ("</body>\n</html>\n");
}