# Untested code, not for production use
# see "hard-to-debug trouble"
package Proxy;
use strict;

use vars qw($AUTOLOAD);

sub AUTOLOAD {
  my $self = shift;
  $AUTOLOAD =~ m!::([^:]+)$!
    or die __PACKAGE__ . ": Weird method name $AUTOLOAD";
  my $method = $1;
  $self->()->$method(@_);
};

sub new {
  my ($package,$master) = @_;
  my $self = sub {
    my $s = shift;
    if (@_) {
      $master = shift;
    };
    $master;
  };
  bless $self, $package;
  $self;
};

##</code><code>##


package Master::Object;
sub new {
  my $package = shift;
  my $master = $package->create_a_new_object(@_);
  return Proxy->new($master);
};

...

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


# set a new master object:
my $new_master = Master::Object->create_a_new_object();
$main->($new_master);