use strict;
use CGI;
use CGI::Session;

my $anfrage = CGI->new();
my $session = new CGI::Session("driver:File", undef, {Directory=>'/tmp/user/'});

my $node = $anfrage->param('node');
my $graph = $session->param('graph');
 
print $session->header(),
      $anfrage->start_html("Hello world"),
      $anfrage->h3("You selected node $node"),
      $anfrage->p($graph->get_top_nodes());
      $anfrage->end_html();