perl -we "sub fail {die 'test' }; END{ fail }; fail()"
test at -e line 1.
test at -e line 1.
END failed--call queue aborted.