eval {
   ( my %session, $ok );
   tie( %session, 'Apache::Session::MySQL', undef, ... )
         and $ok = 1;
   if ( $ok )
   {
      ... do something with %session ...
   }
   untie %session;
}