my $code = param('name');
my $cookie = cookie(-name=>'test') || '';


if ($cookie) {

} 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";
  
  
} else {
print header, start_html;
print "You have no cookie";
print start_form( -action => '' ),
  table(
    Tr( td("Name:"),     td( textfield( -name => 'name',  -size => '15' ) ) ),
    Tr( td("Email:"),    td( textfield( -name => 'email', -size => '15' ) ) ),
    Tr( td( submit('send') ), ),
    end_form,
  );
}