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