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