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