#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use CGI;
$cgi_query = new CGI;
print $cgi_query->header;
print $cgi_query->start_html('get-cookie.cgi');
print $cgi_query->h4('My cookies are:');
$myCookie1 = $cgi_query->cookie('c1');
$myCookie2 = $cgi_query->cookie('c2');
$myCookie3 = $cgi_query->cookie('c3');
print "<PRE>\n";
print $myCookie1;
print "<br>\n";
print $myCookie2;
print "<br>\n";
print $myCookie3;
print "</PRE>\n";
print $cgi_query->end_html;