$ perl -e 'tied { sub {} }->()'
Not a subroutine reference at -e line 1.