try {
    die "foobar";
} catch Error with {
    my $error = shift;
    print "failed: $error\n";
    exit;
};
print "ok";