Select Code to Download

sub foo {
  my $x=shift;
...
__END__
Orig1,Orig2
Orig1,Changed2

sub bar { my $ref=shift; $$ref='changed' }
bar(\$j);