1#!perl -wT 2 3use strict; 4 5use CGI; 6use CGI::Cookie; 7 8my %cookies = CGI::Cookie->fetch; 9my $name = 'ApacheTest'; 10my $c = ! exists $cookies{$name} 11 ? CGI::Cookie->new(-name=>$name, -value=>time) 12 : ''; 13 14print "Set-Cookie: $c\n" if $c; 15print "Content-Type: text/plain\n\n"; 16print ($c ? 'new' : 'exists'), "\n"; 17