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

##</code><code>##

>perl -wMstrict -le
"package Dog;
 ;;
 use List::Util qw(sum);
 ;;
 sub new {
   my $class = shift;
   my $self = {};
   bless $self, $class;
   }
 ;;
 sub bark { printf 'woof '; }
 ;;
 sub do_math { my $self = shift;  $self->bark for 1 .. sum @_; }
 ;;
 ;;
 package main;
 ;;
 sub func1 (\$) {
   my $obj = shift;
   ${$obj}->bark();
   print qq{\n};
   }
 ;;
 sub func2 (\$;@) {
   my $obj = shift;
   ${$obj}->do_math(@_);
   print qq{\n};
   }
 ;;
 my $dog = Dog->new();
 func1($dog);
 func2($dog, 3, 2, 1);
"
woof

woof woof woof woof woof woof