Select Code to Download

            User submits password 
                      |
...
    |
new TMPL page
  output

sub set_session {
   my $session = new CGI::Session("driver:File", $query, {Directory=>'
+/tmp'});
...
      $user_id     = $session->param('$user_id');
    }
}