sub errmsg {
    local $Carp::CarpLevel = 1;
    Carp::croak "$_[0]";
}