Select Code to Download

sub get_PDC {
...
   Win32::NetAdmin::GetDomainController("", $dom, $server);
   return $server;
}