eval { blah() or die "failed"; };

if ($@){
    ...
}