$ perl -M5.010 -e'$h{ die } = 1; say "ok";'
ok