Help for this page

Select Code to Download

Select or download this

while (<FILE>) {
    ...
    read(FILE, $buf, 1);