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