#!/usr/bin/perl

use strict;
use CGI;
use CGI::Carp 'fatalsToBrowser';

my $cgi = new CGI;

# grab existing %cookie
my %cookie;
for ($cgi->cookie()) {
  $cookie{$_} = $cgi->cookie($_);
}

# set a couple of cookies;
$cookie{'botLoginName'} = "XXXXX:YYYYY:ZZZZZ";
$cookie{'Other_cookie'}  = 'whatever';

# create cookies for CGI
my @cookies;
for (keys %cookie) {
  push @cookies, $cgi->cookie( -name  => $_,
                               -value => $cookie{$_}
                             );
}

# print amended header
print $cgi->header(-cookie=>[@cookies]),$cgi->start_html(-title=>'Login');

# use our hash to check "cookie"
if(defined(my $cookieHolder = $cookie{'botLoginName'})){
        print $cgi->h3("Retrieved cookie named botLoginName: $cookieHolder");
}
else{
    print $cgi->h3("No cookie retrieved.");
}

# display all stored
print $cgi->h4('Stored Cookies');

for (keys %cookie) {
  print "$_ = $cookie{$_}".$cgi->br;
}