$ perl -e'$|=1; print "a"; sleep(10); print "b"' | perl -le'read(STDIN, $buf, 10); print $buf'
ab
$ perl -e'$|=1; print "a"; sleep(10); print "b"' | perl -le'sysread(STDIN, $buf, 10); print $buf'
a