package Foo;

sub whee {
  my $self = shift;
  print "$self says Wheee!\n";
}

sub make_whee {
  my ($instance, $func) = @_;
  $instance->$func();
}

make_whee(Foo->new(), "whee");