around some_method => sub {
   my ($orig, $self) = (shift, shift);
   my ($foo, $bar, @baz) = @_;
  ...;
};