Select Code to Download

my $carp;
*SomePackage::carp = sub { $carp = join '', @_ };

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

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