Select Code to Download

sub setCookie($) {
   my($session) = @_;
...
                            -path => '/tmp/Sessions');
   print $query->header(-cookie=>$cookie);
}

sub retrieveSession($) {
    my ($query, $session) = @_;
...
    $session = getUser($session, $sid);    
    return $session;
}