Select Code to Download

{
 local ($^I, @ARGV) = (".bak", $filename);
...
  print;
 }
} # at this point @ARGV and $^I are restored to normal