Help for this page

Select Code to Download

Select or download this

while(my $in = read(FILE1, $buf, 4096)) {
   do_stuff();
   print $buf;
}