napolionshatte og romkugler

Hvad er der galt med dette Perl script?

#!/usr/bin/perl -w

use CGI qw(:standard);

my $cookname = \"kager\";
my $tasty    = cookie($cookname);
my $favorite = \"hejmeddig\";

unless($tasty) {
    my $cookie = cookie(
                                -NAME            => $cookname,
                                -VALUE        => \"napolionshatte\",
                                -EXPIRES    => \"+20s\",
                                );
    print header(-COOKIE => $cookie), start_html(\"Ingen kager\"),\"ingen kager\",end_form();
    exit;
}
       
print header();
print start_html(\"Chokolade- og hashkager\");
print \"***\".$tasty.\"***\";
print end_html();

Det det skal gøre er at sætte kagen første gang scriptet køres, og anden gang skal den vise at den kan se indholdet af kagen(altså ikke vise kagen, men konstatere at kagen indeholder en værdi)