Select Code to Download

my $Object = ObjectMaker->new();
Foo::DoSomething(foo, bar, $Object);
$Object->MethodName(blah);

DoSomething(foo, bar, \$Object);
print $Object; # prints "42"
...
   my $Object = shift;
   $$Object = 42;
}