Well my first thought (well second after File::Copy :o) was to was just to read'n'write -

open(ONE, "firstfile") or die("$!\n");
open(TWO, ">secondfile") or die("$!\n");
print TWO while <ONE>;
close(ONE);
close(TWO);
[download]

That should suffice for text files, and conceivably binary files with binmode() on.
HTH

broquaint

aside: Why is that close() only takes one filehandle? It would be infinitely more handy to have take multiple filehandles. Hmmm ...

Update: once again my replying skills come in too slow ;o)