lanx@nc10-ubuntu:/tmp$ perl -e 'use subs "die"; sub die { print "expected\n" }; eval "4/0"'

lanx@nc10-ubuntu:/tmp$ perl -e 'use subs "die"; sub die { print "expected\n" }; eval "die()"'
expected