Use Win32API::Net;

my $server = "<insert remote server name here>";
my $domain = "<insert your domain name here>";
my $dcName;

Win32API::Net::GetDCName($server,$domain,$dcName);

unless (Win32::GetLastError()) {
  print "DC = $dcName.\n";
}
else {
  print Win32::GetLastError();
}