Help for this page

Select Code to Download

Select or download this

{
    local $/= \4096;
    binmode(INPUT);
...
    }
    print OUTPUT $_   while  <INPUT>;
}

Select or download this
read(INPUT,$_,4096)