# File 2

package Foo;

use ObjectMaker;

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

   ...
   my $blub = $$Object->MethodName(blah);
}

1;