my $session =  CGI::Session->new(undef, $obj->{-cgi}, { Directory => 'data/sessions' }) or die "CGI::Session->new failed.";