How via Perl2UCS separate Authenticated and Normal
connections

Hi, All.
Via that script I can view (and in future disconnect ) all connections,
except some specific users. (see later)
But how I can separate "Authentificated" connections ?
I don't have any ideas.

use Perl2UCS;
open(OUT,">./test.txt");
my $server = Perl2UCS->new("UCX:Server") or die "Failed to get
Server";
my $connections = $server->{'Clients'} or print OUT "Failed to get
entries\n";
$connections->Reset();
while($connections->HasMoreElements()) {
  my $conn = $connections->Next();
# NOT-LOGGED-Connections
  if ($conn->{'Name'} =~ /[^\-]+\-[^\-]+\-[^\-]+/) {
  }
#Workstation (ZENWorks) connections
  elsif ($conn->{'Name'} =~ /[^\_]+\_\d+\_[^\_]+/) {
  }
  else
  {
  print OUT $conn->{'Name'}," , ", $conn->{'Id'}," ,
",$conn->{'Address'}->{'Net'}," ,
",$conn->{'Address'}->{'Node'}," ,
",$conn->{'Address'}->{'Socket'}," ,
",$conn->{'ConsoleRight'},"\n";
  }
}
close(OUT);

Best regards,