$ perl -e 'tied( sub {}->() )'
    Can't modify non-lvalue subroutine call at -e line 1.