#!/usr/bin/perl
	use session;
	
	use CGI::Carp qw(fatalsToBrowser);
	use CGI;
	my $cgi = new CGI;
	my $session = new_session($cgi, 9);
	
	# Session-Header ausgeben
	print $session->header();
	my $zahl = $session->getvar("zahl", 1);
	
	print "Alter Wert: $zahl<br>";
	$zahl = $zahl*2;
	print "Neuer Wert: $zahl<br><br>";
	
	$session->setvar("zahl", $zahl);
	
	if ($session->get_newsession)
	{
	my @grund = $session->get_newsession_reason;
	print "Neue Session, weil: $grund[1]";
	}