main...
$object->new;
func1($object);
func2($object);

sub func1 (\$)
{ my $object=shift;
  $object->doSomething;
}

sub func2 (\$)
{ my $object=shift;
  $object->doSomethingElse;
  func1 ($object);
}