use Win32::AdminMisc;

$Machine = "\\\\KO-GTS-W8ZHNC4";
if( Win32::AdminMisc::GetGroups( $Machine, GROUP_TYPE_GLOBAL, \@List ) )
{
    print "The global groups are:\n";
    map { print "\t$_\n";} @List;
}