use strict;
use CGI::Session;
use GO::Parser;

my $session = new CGI::Session("driver:File", undef, {Directory=>'/tmp/user'});
print $session->header();
my $parser = new GO::Parser({handler=>'obj'}); # create parser object
$parser->parse("anatomy.obo"); # parse file -> objects
my $graph = $parser->handler->graph;  # get L<GO::Model::Graph> objec
$session->param('graph', $graph);

my $roots = $graph->get_top_nodes();