my $result = `host <adresse>`;
my $host = (split(/\s/,$result))[-1];
print $host,"\n";