Select Code to Download

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

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