#!/usr/bin/perl

use Socket;
$adresse  = gethostbyname("www.mesexemples.com")
    or die "Impossible