Select Code to Download

sub changeme{  
  local $^I = ".$bak";
...
    print;
  }
}

sub changeme{
  $myvar = somesub();
...
    print;
  }
}