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

##</code><code>##

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

##</code><code>##

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