Help for this page

Select Code to Download

Select or download this

sub fall_over {
     die "Urgh!";
...
}

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