while(1){
   my $buffer = '';
   my $bytes_read;
   do { 
      $bytes_read = sysread($sock, $buffer, 64*1024, length($buffer));
   } while ($bytes_read && $select->can_read(1));
        
   createFile(<filename>, $buffer, length($buffer), 0);
   processFile();
}