sub foo {
  my $obj = shift;
  $obj->method(@_);
}