while (my $bytesread = read($file, my $buffer, 1024)) {
                        print OUTFILE $buffer;
                    }