{
  local $Carp::CarpLevel = $Carp::CarpLevel + 2;
  carp("That isn't nice!");
}