Please use binmode($fh) when copying binary files. This will prevent your code from breaking under operating systems and programming languages that make a difference between text and binary files. Your code would scramble files under Windows.