如果您以前使用面向对象编程进行编程，那么您将意识到有必要创建一个析构函数，以在完成使用对象后释放分配给该对象的内存。一旦对象超出范围，Perl就会自动为您执行此操作。
如果要实现析构函数，该析构函数应负责关闭文件或进行一些额外的处理，则需要定义一个称为DESTROY的特殊方法 。在Perl释放分配给它的内存之前，将在对象上调用此方法。在所有其他方面，DESTROY方法与任何其他方法一样，您可以在此方法内实现所需的任何逻辑。
析构函数方法只是名为DESTROY的成员函数（子例程），在以下情况下会自动调用-
当对象引用的变量超出范围时。
未定义对象引用的变量时。
脚本终止时
当perl解释器终止时
例如，您可以将以下方法DESTROY放在您的类中：
package MyClass;
...
sub DESTROY {
print "MyClass::DESTROY called\n";
}