{
    package MyClass;
    sub new { bless {}, shift; }
    sub DESTROY { print "Destruction.\n"; }
}

my $obj = MyClass->new;
$obj = undef;  # $obj->DESTROY が呼び出される
print "End of program.\n";