ip og host

Hvordan finder man et domaine navn udfra en IP adresse i Perl. Jeg kunne forestille mig at bruge gethostbyaddr, men jeg kan ikke lige få det til at virke. Jeg kunne lave et system kald, men det er ikke ønskeligt pga performence. Her er min kode:

#!/usr/bin/perl -w

use CGI qw(:standard *table);
use strict;
use Socket;

print header,start_html, (gethostbyaddr(\'194.182.124.201\',AF_INET) or die \"couldn\'t resolve domain\"),end_html;