package PkgB;
sub errmsg {
   local $Carp::CarpLevel = $Carp::CarpLevel + 1;
   PkgA::errmsg(@_);
}