{
  local $^I = '';
  local @ARGV = 'c:/index.htm';
  while ( <> ) {
    s/foo/bar/g;
    print;
  }
}