} elsif ($code) {

    my $cookie_to_send = cookie(-name=>'test'
                                -value=>"$code",
                                -expiration=>'+1h');
    # print out header
    print header(-cookie=>$cookie_to_send);
    print "You had a cookie!<br>";
    print "Code: $code<br>";
    print "Cookie: $cookie";