Select Code to Download

sub retrieveSession
{
    my ($query) = @_;
...
    my $session = CGI::Session->new(undef, $sid, {Directory=>'/tmp/Ses
+sions'});
    return getUser($session, $sid);    
}