DESTROY { my $s = shift; print $s->HR; }