open OLD "<", $oldfile or die "Can't open $oldfile ($!)\n";
open NEW ">", $newfile or die "Can't open $newfile ($!)\n";

print NEW while(<OLD>);

close OLD;
close NEW;