DB<8> p $#{"_<(eval 20)[tt:11]"}
7

DB<9> l (eval 20)
1       sub {
2:      my $x = 123;
3:      $x += shift;
4:      print "x is $x\n"
5       }
6 
7==>    ;