eval {
    # Do stuff
}; if (my $e = $@) {
    # Handle any errors
}