use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

# New CGI object
my $q = new CGI;

my $test = $q->cookie("test");

if (defined $test) {
	print $q->header;
	print $q->start_html('Test stuff');
	print "<BR><BR>\n";
	print "I got cookie value: $test<BR>\n";
	print $q->end_html;
	
} else {

	my $cookie = $q->cookie(-name => 'test',
				-value => 'test value');
				
	print $q->redirect (-cookie => $cookie, -uri => $q->self_url());
			
}