Select Code to Download

package Person;

...
    print $self->{NAME}." dies now: life was nice\n";
        -- ${ $self->{"_CENSUS"} };
}

#! /usr/bin/perl -w

...
$me->name("Andy");
$me->DESTROY;

Andy dies now: life was nice
Andy dies now: life was nice