#!/usr/bin/perl -w
require "cgi-lib.pl";
&ReadParse;
my %hashOfAnimals = (
"pets.gif" => "Your Favorite Pet",
"afghanhd.jpg" => "Big dogs",
"austter.jpg" => "Little dogs",
"ragdoll2.jpg" => "Cats",
"fish1.jpg" => "Fresh water fish",
"gerbil.jpg" => "Gerbils",
"morganhorse.jpg" => "Horses",
"parrot.jpg" => "Parrots",
"macaw.jpg" => "Macaws",
"toucan.jpg" => "Toucans",
"snap.jpg" => "Turtles",
"iguana.jpg" => "Iguanas",
"sinaloan.jpg" => "Snakes"
);
#color.cgi
#Warn browser that HTML is coming
print &PrintHeader;
print <<"eohtml";
Thanks for responding
Thank You
What a coincidence, $in{'firstname'} $in{'lastname'}!!
My favorite color is $in{'color'} AND I Love $hashOfAnimals{$in{'pet'}}.
eohtml
#End of Program