expires.cgi

#!/usr/bin/perl

require "subparseform.lib";
&Parse_Form;

print "Set-Cookie:language=$formdata{'language'}; expires=Thu, 31-Dec-1998 00:00:00 GMT\n";

print "Content-type: text/html\n\n";
print "<HTML><HEAD><TITLE>Thanks for choosing!</TITLE></HEAD><BODY>";
print "You chose $formdata{'language'}. Next time you visit, I'll greet you accordingly.";