print "00db" . pack( "V", $image_size ) . $image } @p, ( -1 + $width * $height ) x 3;