package Foo;
use Carp qw( carp );
carp('One');

package Bar;
Foo::carp('Two');

package Foo;
carp('Three');