eval { # tie to session_id (sorry it's monday morning don't remember the exact syntax) } if ($@) { print "bogus session\n"; }