local $/ = \(8 * 1024); # blocksize
while( readline ...