$flexlm_cmd = "lmutil lmstat -f ${product}";
#other junk
$license_cmd = "$flexlm_cmd";
      
   open LICENSES, "$license_cmd |" || die "Can't execute ($license_cmd) \n$!\n";
    
   while (<LICENSES>) 
   {
      $data_line = $_;
	  
	   # my @data = split;
		#print if grep $_ > 99, @data[1..$#data];

      if ($data_line =~ /27000 (\d+)/)
              { @license_pid = $1; }

      if ($data_line =~ /Total of (\d+) licenses issued/)
               { $max_licenses = $1; }
      
      elsif ($data_line  =~ /Total of (\d+) licenses in use/)
               { $licenses_used = $1; }
      
      elsif ($data_line  =~ /minutes \(at /)
            {
               ($JUNK, $user, $JUNK) = split (/\s+/, $data_line);
      	       $user_list ="$user,$user_list";
      }