my $sid = $foo->cookie('main') || undef;
my $session = new CGI::Session(undef, $sid, {Directory=>'c:/apache/sessions'});
if ($session->param("alias")) {
.... #grab data from session
}