Help for this page
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');