my $session_contents = "Session contents:<br />";
foreach my $key (keys (%{$sess_ref}))
{
$session_contents .=
"Key: " . escapeHTML ($key)
. " value: (" . escapeHTML ($sess_ref->attr ($key)) . ")"
. "<br />";
}