# Create new session
my $session = new CGI::Session("driver:File", $cgi, {Directory => 'ses'})  or die CGI::Session->errstr;;
my $sid = $session->id();

##</code><code>##

my $got_file_name .= $cgi->param( 'doc_upload' ) 
                 || $session->param( 'doc_uploaded' ) || '';

##</code><code>##

# Store file name to use later.
$session->param("doc_uploaded", $got_file_name);
$session->flush;

##</code><code>##

my $cookie = $cgi->cookie(CGISESSID => $sid);
print $cgi->header(-cookie=>$cookie ), $tmpl->output;

##</code><code>##

   print "Location: https://myserver/mini.pl?conf=1;CGISESSID=$sid\r\n\r\n";