use strict;
my $ip = join ".", unpack 'C*', scalar gethostbyname('mediamind.be');
print "IP = $ip\n";

use Socket;
my @result = gethostbyaddr pack('C*', split /\./, $ip), AF_INET;
use Data::Dumper;
$Data::Dumper::Useqq = 1;
print Dumper @result;