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

with_proto();
without_proto();

                                 <---- Note absence of "with_proto"
5  <#> gv[*without_proto] s      <---- Not constant