$objects{$obj} = $info_about_me;

##</code><code>##

sub DESTROY {
    my $self = shift;
    delete $objects{$self};
}