package CowboyNeal;

sub DESTROY {
	my $self = shift;
	print ref($self), " is going away.  It was known as ", $self->name(), " back in the day.\n";
}

##</code><code>##

sub DESTROY {
	my $self = shift;
	$self->{first} = undef;
	$self->{last} = undef;
}