domænet

Hejsa, jeg har prøvet at lave en lille tæller i perl til min side.
Jeg kunne nu godt tænke mig at se hvad for nogle sider folk kommer fra, men da samme domæne godt kan sende fra flere sider ønsker jeg kune at finde domænet...

jeg har lavet følgende:

@i = split(/\//,$ENV{'HTTP_REFERER'});
@i = split(/\./,$i[2]);
if ($i[0] eq "www"){$referer = "$i[1]_$i[2]"}
else {$referer = "$i[0]_$i[1]"}

og det funger også næsten...
jeg ville bare lige vide om der er en simplere måde at gøre det på?
for hvis der nu kommer en surfer direkte fra et IP nr (f.eks. 127.0.0.1) så fungerer scriptet ikke helt.
Jeg ved heller ikke hvad der sker hvis nogen kommer fra et subdomæne (f.eks. hejsa.domain.dk)?

Er der nogen som har en metode til at finde det på???

På forhånd tak!
Hilsen Simon