#!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;