Select Code to Download

$id = $session->id();
$session->param('logged_in', $username);
$session->expire('+10m');
print "Location: welcome.pl?sid=$id\n\n";

$sid = $cgi->param('sid');
$session = CGI::Session->load($sid);
...
    print $cgi->redirect("home.pl");
    print $cgi->header();
}