open (IN, "$filename") ||
    die ("$!");
# your code here
# now change read to...
while ($Bytes = read(IN, $Buffer, 1024)) {
    $BytesRead += $Bytes;
    print OUTFILE $Buffer;
}
close(OUTFILE);
close(IN);