my $ip = `host $host`;
    $ip =~ s/.*?(\d+\.\d+\.\d+\.\d+).*/$1/s;