sub methodname
{
  my ($bz, $z ) = @_;

  my $x = frob($bz;
  print $x + $z;
  foobar( $x );
}