Select Code to Download

use constant BLK_SIZE => 16*1024;

...
   }
   return 1;
}

$ 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(ST
+DIN, $buf, 10); print $buf'
a