Help for this page

Select Code to Download


  1. or download this
    {
        local $/= \4096;
        binmode(INPUT);
    ...
        }
        print OUTPUT $_   while  <INPUT>;
    }
    
  2. or download this
        read(INPUT,$_,4096)