#!/usr/bin/perl use strict; use CGI qw(param :standard); use CookTest; my $subres = &CheckCookie; my $alleged = cookie($MyCookie); print $PrintHeader; print < Cookie tester My sub cal results are $subres

My alleged cookie is $alleged

EOF exit;