sub new {
    ...your code...
    $self->{_creator_tid} = threads->tid();
    return bless $self, $class;
}

sub DESTROY {
    print "Destroy $_[0]\n"
        if (threads->tid() == $_[0]->{_creator_tid});
}