Select Code to Download

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

sub methodname
{
...
  print $x + $z;
  foobar( $x );
}