Le module Tie::DNS permet d'associer les hostnames avec les
IPs correspondantes sous la forme de clefs/valeurs au sein d'un hash. Il
suffit d'afficher la valeur correspondante à la clef recherchée pour
provoquer la résolution DNS.
use Tie::DNS;
my %dns;
tie(%dns,'Tie::DNS');
print $dns{'www.easynet.fr'} ."\n";
print $dns{'195.114.64.193'} ."\n";
Bien entendu, la fonction tie() prend des options qui permettent
de définir le domaine par défaut ou le type d'enregistrement
recherché (MX, SOA ...).
Plus complêt mais plus compliqué, le module Net::DNS vous
donnera satisfaction si votre besoin va plus loin.