$obj->set_error_handler(sub{ print "$_[1]\n" });