use Perl's eval

catch.pl

#!/usr/bin/env perl

use strict;
use warnings;
use feature 'say';

sub oops {
    die "It happened";
}


# Instead of just
#
# say oops();

eval {
    say oops();
};
if ($@) {
    say "Caught it!";
}


# This code isn't reached without encosing the call to oops() in an eval
say "I got to the end";