sub fall_over {
     die "Urgh!";
}

eval {
   fall_over();
}

print "We should have died!\n" if $@;