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