my $ok = eval {
    foo();
    1;
};

if (! $ok){
    if ($@ =~ /internal error/){
        warn "foo() fsck'd up!\n";
    }
    else {
        warn "foo() fsck'd up, with unexpected err: $@\n";
    }
}