>type test.pl && perl -MO=Concise,-exec test.pl 2>&1 | find "proto"
sub with_proto()  :lvalue { my $lex }
sub without_proto :lvalue { my $lex }

with_proto();
without_proto();

4  <#> gv[*with_proto] s
8  <#> gv[*without_proto] s


>type test.pl && perl -MO=Concise,-exec test.pl 2>&1 | find "proto"
my $lex = 4;
sub with_proto()  :lvalue { $lex }
sub without_proto :lvalue { $lex }

with_proto();
without_proto();

8  <#> gv[*with_proto] s
c  <#> gv[*without_proto] s


>type test.pl && perl -MO=Concise,-exec test.pl 2>&1 | find "proto"
{ my $lex = 4; sub with_proto()  :lvalue { $lex } }
{ my $lex = 4; sub without_proto :lvalue { $lex } }

with_proto();
without_proto();

i  <#> gv[*with_proto] s
m  <#> gv[*without_proto] s