use Win32::IPConfig;
    my $host = shift || Win32::NodeName;
    my $ipconfig = Win32::IPConfig->new($host)
        or die "Unable to connect to $host\n";
    my $hostname = $ipconfig->get_hostname;
    my $address = $ipconfig->get_domain;
    my $host_add = ($hostname . '.' . $address);
    print "$host_add\n";