Select Code to Download

use strict;
use warnings;
...
  $_ =~ s/zlib1\.dll/zxxxx.dll/g;
  print $outfh, $_;
}

close $infh;
close $outfh;
...
File::Copy::copy( 'Tcl.dll_new', 'Tcl.dll') or die $!;
chmod($mode, 'Tcl.dll');
unlink('Tcl.dll_new');