open (LOG, $file);
binmode LOG;
$linelen = 1024*1024;
while(!eof(LOG))
  {
    my($buf);
    $len = sysread LOG,$buf,$linelen;
    syswrite OUT,$buf,$len if($len);
  }
close(LOG);