open F1,">>F1.dat" or die "Can't open F1.dat: $!\n"; #Open F1 file in Append mode open F2,"F2.dat" or die "Can't open F2.dat: $!\n"; while() { print F1 $_; } close(F1); close(F2);