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

##</code><code>##

DoSomething(foo, bar, \$Object);
print $Object; # prints "42"

sub DoSomething
{
   my $foo = shift;
   my $bar = shift;
   my $Object = shift;
   $$Object = 42;
}