use strict;
use warnings;
use 5.010;

{package B;

	sub new {
		my $class = shift;
		bless {}, $class;
	}
	
	sub DESTROY {
		my $self = shift;
		
        say "destroy";
		$self->SUPER::DESTROY;
	}

}
--output:--
(in cleanup) Can't locate object method "DESTROY" via package "B" at C:\Users\Me\Documents\perl2.pl line 17.
destroy