use Exception::Class::TryCatch;

try eval { 
    Exception::Class::Base->throw('error') 
};

# can eval or use try/catch again regardless of $@ above
bar();  

catch my $err; # catches the matching "try"