#!/usr/local/bin/perl
use CGI qw(:standard);
#get the cookie
my $thiscookie = cookie('cookie');
if ($thiscookie) {
msg("Cookie found: $thiscookie\n", '');
}
else {
my $value = 'camel';
my $cookie = cookie(-name => 'cookie', -value => $value);
msg("Cookie set: $value", $cookie);
}
sub msg() {
my ($msg, $cookie) = @_;
if ($cookie) {
print header(-cookie => $cookie);
}
else {
print header();
}
print "\n";
print "\n";
print "Cookie set....\n";
print "\n";
print "\n";
print "$msg
";
print "\n\n";
exit;
}