my $master= My::Master::Object->new();

...

undef $master; # release object tree before global destruction sets in
# end of source code