$ perl -e '*::foo = sub{3};print foo()'
3