open SRC, $infile; open DEST, ">$output"; # for handicapped systems binmode(SRC); binmode(DEST); while () { print DEST $_; } close DEST; close SRC;