Perl には生成したオブジェクトが参照されなくなったとき、またはスコープから外れた時に自動的に開放されるわけですが、その開放直前に何かさせたい時に DESTROY method を用意することでそれを実行することができます。 package Hoge; use strict; use war…