runtime/Perl5/examples/tweak/input

method foo() {
  i = 3;
  k = i;
  i = k*4;
}

method bar() {
  j = i*2;
}