#!C:\Perl\bin\perl.exe
use strict;
use CGI;
my $q = CGI->new();
my $service = $q->param('service') || '';
&printCookieContent() if ($service eq 'showcookie');
sub printCookieContent
{
my $cookie = $ENV{HTTP_COOKIE};
my ($name, $value) = split(m/=/, $cookie, 2);
print $q->header('text/html');
print "$name
$value";
exit;
}
my $cookie = $q->cookie( -name => "Testname",
-value => "Testvalue",
-domain => "abroxa.dyndns.org",
-expires => "+10m",
-path => "/cgi-bin"
);
print $q->header(-type => 'text/html', -cookie => $cookie);
print qq ~klick here to test the cookie~;
exit;