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 =