#!/usr/bin/perl

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

$cgi_query = new CGI;
print $cgi_query->header;

print $cgi_query->start_html('getacookie program');

print $cgi_query->h4('Your cookie name is...');

$testCookie = $cgi_query->cookie('TEST-COOKIE');

print "<PRE>\n";
print $testCookie;
print $cgi_query->end_html;