gistfile1.txt

 335             # act as --help too if we have MAIN defined
 336             say($*W.symbol_lookup(['$?USAGE'], $/));
 337             if $*UNIT.symbol('&MAIN') {
 338                 $block.push(
 339                     PAST::Op.new(
 340                         :pasttype<call>, :node($/),
 341                         :name('&say'),
 342                         $*W.symbol_lookup(['$?USAGE'], $/)
 343                     )
 344                 )
 345             }


Prints:

Capture[0x2bd3840]
Could not find symbol '$?USAGE'
  in block <anon> at test2.pl:10