$file=File::Tail->new(name=>$name, maxinterval=>1, adjustafter=>1);
      while (defined($line=$file->read)) {
         my($logindate,$loginuser,$logoutdate,$logoutuser,$count);
         #if($line =~ /validateLogin\((.*)\)/){ $v = $1;}
         if($line =~ /INFO\s\s(\d+)(\d+)-(\d+)-(\d+)\s(\d+):(\d+):(\d+),(\d+)\s\[(.*)\]\s\((.*)\) - validateLogin\((.*)\)/){
          $logindate = "$1$2-$3-$4 $5:$6:$7,$8";
          $loginuser = "$11";
          if(($logging)&&($debug)){&writelog(1,"DEBUG: Tail Event Login found user date string = $logindate user = $loginuser");}
         }
}