Help for this page

Select Code to Download


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