$ perl -e'$|=1; print "a"; print "b"; sleep 1; print "c"' | \
    perl -le'print "[$buf]" while sysread(STDIN, $buf="", 4096);'
[ab]
[c]