$ perl -wle 'sub foo { return undef; }    foo or die "tot"'
tot at -e line 1.
$ perl -wle 'sub foo { return 0; }    foo or die "tot"'
tot at -e line 1.