Perl: Trouver l’adresse DNS d’un host

Author:
#!/usr/bin/perl

use Socket;

$host = 'www.yahoo.fr';

# Extraction de l'adresse DNS
$adresse_dns =