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

##</code><code>##

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

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