perl で trap って使えないのでしょうか?
誰か教えてください!