Select Code to Download

package CowboyNeal;

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

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