package MyClass;
sub DESTROY {
   my $self = shift;
   # assuming object has a "name" property
   warn "object $self->{name} is being destroyed now";
}