perl脚本运行出现错误

运行perl脚本的时候出现了这个问题，一直查不出来，有朋友帮忙解决吗

脚本发一下