Select Code to Download

$session = new CGI::Session(undef, undef, {Directory=>'./tmp'}) or die
+ CGI::Session->errstr;

my $action = $cgi->param("submit");

...
  print $cgi->header;
  print $cgi->start_html(-title=>"Home Page");
}

my $session = CGI::Session->load or die
CGI::Session->errstr;
print $session->header;
...
  print $cgi->end_html;
  exit(0);
}