>perl -le"lc sub { print wantarray?1:0 }->();"
0