Hmmm... That's what I had before I started to use sysread... I've noticed that sysread will read a file much faster though... Maybe I can make the read buffer bigger instead to tune "while <input>" ?

open (INFILE, "/sentry/ecisock/ecisock.rpt");

while (<INFILE>) {

  chomp;

  ($serverhostname,
   $execdate,
   $cicstranid,
   $sentryapi,
   $elapsedtime,
   $errorcode,
   $corphdr,
   $channelcode,
   $clientprodcode,
   $clientipaddr,
   $sentrytermid,
   $signonid,
   $accountnum,
   $branch,
   $campaign,
   $segment,
   $custid,
   $localsysid,
   $remotesysid,
   $sentrytarget,
   $hfb,
   $sentryver,
   $corphdrfailreason,
   $corphdrfailtype,
   $corphdrbussvc,
   $corphdrclientcode,
   $mfcicstasknum,
   $sentrycicstasknum,
   $foo1,
   $foo2,
   $cpsm)=split(/\|/,$_);

   ###########################################
   #  Counts total calls
   ###########################################
   $totalsentrycalls++;

(.. Etcetera ..)
[download]