THANK YOU VERY MUCH, FOR HELP, EXPLANATIONS, AND REFERENCES. It worked as expected.

my $cgi = CGI->new;
my $session = CGI::Session->load() or die CGI::Session->errstr;
    if ( $session->is_expired ) 
    {      
        print "Your session timed out! Refresh the screen to start new
+ session!";            
        exit(0);
    }
    elsif ( $session->is_empty ) 
    {
        $session = CGI::Session->new () or die CGI::Session->errstr;
        $session->expire("2h");                
        print $session->header();              
        print "<a href='called.pl'>call</a></br></br>";
        print Dumper($session);        
    }
    else
    {
    print $session->header();  
    print "session found";
    print "<a href='called.pl'>call</a></br></br>";
    }
$session->flush();
[download]

and

my $cgi = CGI->new;
my $session = CGI::Session->load() or die CGI::Session->errstr;
print $session->header();  
print $session->dump();
print "<a href='index.pl'>index</a></br></br>";
$session->flush();
[download]