#!perl

use CGI qw( :standard );

print header, start_html( "Read cookies" );
print "<STRONG>The folowing data is saved in a cookie on your ";
print "computer.<STRONG><BR><BR>";

%cookies = readCookies(); 

print "<TABLE>";

foreach $cookieName ( "Name", "Height", "Color" )
{
   print "<TR>";
   print "   <TD>$cookieName</TD>";
   print "   <TD>$cookies{ $cookieName }</TD>";
   print "</TR>";
}
print "</TABLE>";
print end_html;

sub readCookies
{
   @cookieArray = split( "; ", $ENV{ 'HTTP_COOKIE' } );
   foreach ( @cookieArray )
   {
      ( $cookieName, $cookieValue ) = split ( "=", $_ );
      $cookieHash{ $cookieName } = $cookieValue;
   } 
   
   return %cookieHash; 
}