open (IN,"c:\\data");
          @lines = <IN>;
          close IN;
        
@lines = map { s/\b$old_hostname\b/$new_hostname/sgi; $_ } @lines;
          open (OUT,">c:\\data") || "can't open data :$! ";
          print OUT @lines;