while ($bytesread = read($raw_file,$buffer,1024)) {
    print O $buffer;
}

##</code><code>##

while (read($raw_file,$buffer,1024)) {
    print O $buffer;
}