Help for this page

Select Code to Download

Select or download this

local $/ = \4096;
while (<$fh>) {
   # $_ contains one 4k chunk
   ...
}