use Win32::NetAdmin qw[LoggedOnUser];

my @users;

LoggedOnUsers( '', \@users );

print $_, $/ for @users;