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