There are Perl modules that attempt to provide such a mechanism, at least TryCatch and Syntax::Feature::Try (I only say "attempt" because I haven't tested them myself). See also Task::Kensho::Exceptions and Exception::Class.