#!/usr/bin/perl

use strict;
use warnings;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);

my $cookiename = "favorite ice cream";
my $favorite   = param('flavor');
my $tasty      = cookie($cookiename);
my $pass       = url_param('pass');


unless ($favorite eq "test")
{
  print header(), start_html("Ice Cookies"), h1("Hello Ice Cream"),
        hr(), start_form(),
        p("Please select a flavor: ", textfield("flavor",$tasty)),
        end_form(), hr();
  exit;
}

my $cookie = cookie(
  -NAME    => $cookiename,
  -VALUE   => $favorite,
  -PATH    => "/",
  -EXPIRES => "+2y",
);

print header(-COOKIE => $cookie),
  start_html("Ice Cookies, #2"),
  h1("Hello Ice Cream");
print "You have already chosen a favorite!";
print "<a href=\"example.pl?who=pass\">new window</a>";
  #p("You have chose as your favorite flavor '$favorite'.");


if ($pass) {
print "Still logged in";
}