elsif ($data_line  =~ /\, start /) 
     {
        $data_line =~ s/^\s+//g;
		print $data_line;
        ($user, $IP, $machine, $VER, $JUNK, $PID, $JUNK, $SDAY, $SDATE, $start_time) = split (/\ /, $data_line);
		$user_list ="$user,$user_list";
		$start_list ="$start_time,$start_list";
		$licenses_used++;
      }
   }

   close LICENSES;