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