eval { some_sub() };
if ($@) {
    # Handle exception here
}

sub some_sub {
    die "Bad stuff happened" if $some_exception_happens;
}