if ($action eq 'login') {
    
    $session = CGI::Session->load( "driver:File", undef,  $dsn_args );
    eval {
        $session->delete;
        $session->flush;
    };
    
    $session = CGI::Session->new( "driver:File", undef,  $dsn_args )
        or die CGI::Session->errstr;
    
}