添加perl异常处理的内容