eval
{
    callMethod();
};
if ($@)
{
    confess "CallMethod failed: $@";
}

##</code><code>##

sub callMethod
{
    # blah blah
    eval {
        someMoreCode();
    };
    if ($@)
    {
        confess "someMoreCode failed: $@";
    }
}