sub con_cli
   {
    my ($w1,$w) = @_;
    my @w2 = $w1;
    my $cli_str;
    for my $cli(@w2)
       {
        open(CLI_HTML,"<$cli") or die $!;
        while ($cli_str = <CLI_HTML>)
             {
              if($cli_str =~ s/<tr><td>CLIENTS=\s*(.+)<\/td><\/tr>/$1/){
              my @cli_str = split '&nbsp;', $cli_str;
              for $cli(@cli_str)
                 {
                  my @wks = split ' ', $cli;
                  for my $cli2(@wks)
                     {
                      my @wks = split 'pixxadm', $cli2;
                      my @unsort_array = ("@wks\t\ton  IA\t\t$w\n") if @wks;
                          &output(@unsort_array);
                     }
                  }
              }
          }
       }  
    }
close CLI_HTML;

sub output
   {
    my (@unsort_array) = @_;
    my $count = 1;
    my @sort_array = sort @unsort_array;
    foreach (@sort_array){++$count; print "$count. $_";}
   }