use strict;
use Win32::NetAdmin qw(LoggedOnUsers);

my %users;
my $server = "111.111.111.111"; 
LoggedOnUsers( $server, \%users);  #What is the \ doing with this hash variable??
print "Users logged on to $server:\n";
for (keys %users) {
my ($user, $udomain, $userver) = split /;/, $users{$_};
#Where does $udomain and $userver come from and represent??
print "USER: $user\n";
}