#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Cookie;
my $cgi = CGI->new;
my %cookies = CGI::Cookie->fetch;
my $name = exists $cookies{'session_name'} ? $cookies{'session_name'}->value : "";
print $cgi->header(-type=>'text/html');
print <<"HTML";
Perl Sessions Page 2
Perl Sessions Page 2
Name: $name
Session Page 1
Perl CGI Form
HTML