Select Code to Download

  my $object1 =  new MyClasses::Object1 (
                        _cgi   => new CGI,
...
                );

  $object3->blah;

 Inside Object2:
   sub setsomething {
...
          return $self->{_object1}->{_cgi}->param('pleh');
      }
   }