sub errmsg {
Carp::croak "$_[0]";
}