$file = 'Win.ini';\n
$tmp = "$file.tmp";\n
chdir ("\\\\servername\\winnt") || die "$!\n";\n
open (FL, "$file") || die "$!\n";\n
open (TMP, ">$tmp") || die "$!\n";\n
while (<FL>){\n
  $_ =~ s/als/ald/g;\n
  print TMP $_;\n
}\n
close FL || die "$!\n"; \n
close TMP || die "$!\n";\n
rename ($file,$file.old) || die "$!\n";\n
rename ($file.tmp,$file) || die "$!\n";\n