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

package Bar;
...

package Foo;
carp('Two');