sub DESTORY {
        my $self = shift;
        warn "DESTORYING $self";
}

##</code><code>##

sub DESTROY {
        my $self = shift;
        warn "DESTROYING $self";
}