my $res = eval {...statements...; 1};
unless ($res) {
    ... eval failed ...
}