perl野郎たちは何の話してるんだ？(;´Д`)
evalでトラップするとかそういうことか？