$ perl -lwe 'sub foo { print @_ } STDOUT->main::foo()'
GLOB(0x905b600)