$ perl -E'try { 1/0 } catch ( $e ) { }; say "ok"'   # Using 5.40
ok