package Redirector;

my $new_obj;
# Redirect all methods calls of object A to object B.
sub redirect
{
  my $new_obj = shift;
  my @methods = @_ || 'all';
  <instrument the methods so that Redirector::foo is called
  instead of old_obj::foo>
}

sub print
{
  my $real_obj = shift;
  # Conveniently switch the object.
  $new_obj->print(@_);
}