$ perl -MTime::HiRes=sleep -e'while(1){print ".";sleep 0.001}' | perl -le'print sysread(STDIN,$rec,1024*1024)'
4096