Not sure if this would work for you:

my $session = CGI::Session->load("driver:File", undef, { Directory=>$s
+ession_dir->{users} });
if ($session->is_empty) {
    $session = CGI::Session->load("driver:File", undef, { Directory=>$
+session_dir->{tmp} });
}
[download]