if ($machine_name) {
    my @ip = `nslookup $machine_name`;
    my $ip = $ip[4];
    $ip = (split /: /, $ip, 2)[1];
    print "$machine_name:$ip<br>\n";
  }