Select Code to Download

$session = new CGI::Session("driver:File", $cgi, {Directory=>"/temp"})
+;

...
    $session->save_param();
    # expire the session itself after 1 idle hour
    $session->expire('+1h');

use DBI;
use CGI;
...
print "</body>";
print "</html>";
}