{
    local $Carp::CarpLevel = 2;
    carp "Some error";
}