Select Code to Download

sub modify {
   chomp( $_[0] );
...
modify($f);
print $f;
#fred

sub modify2 {
   # Create a copy of the input
...
modify($f);
print $f;
#fred\n