#!/usr/bin/perl

use strict;
use warnings;
use CGI qw/:standard/;
use CGI::Cookie;
use CGI::Session;


my %cookies = fetch CGI::Cookie;


print header, start_html;
print "<br> Booo\n";

print "<br>Cookies:\n";
my $session_vars;
foreach my $key (keys %cookies) {
	$session_vars = $cookies{$key} if ( $key eq 'CGISESSID' );
}
my @vars = split ';', $session_vars;

my $session_id;
foreach my $v ( @vars ) {
	if ( $v =~ /CGISESSID/ ) {
		my @bits = split '=', $v;
		$session_id = $bits[1];
	}
}
print "<br>sess : $session_id\n";

my $session = new CGI::Session(undef, $session_id, {Directory=>'/tmp'});

my $profile = $session->param("~profile");

print "<br> Hello: $profile->{username}\n";

print end_html;