sub retrieveSession
{
    my ($query) = @_;
    my $sid     = $query->cookie('CGISESSID') || '';
    $sid        = substr($sid, 10, -8);
    my $session = CGI::Session->new(undef, $sid, {Directory=>'/tmp/Sessions'});
    return getUser($session, $sid);    
}