Hvad er den BEDSTE/SIKRESTE måde af få fat på den LOKALE IPadrese

På en Windows XP maskine med Perl 5.6 eller 5.8 vil jeg gerne vide hvilken måde der er en SIKRESTE til at afgøre den aktuelle IP adresse som maskinen har lokalt.

Jeg kører DHCP, så registreringsdatabasen er ikke en mulighed!

Denne er jeg selv faldet over:
    use IO::Socket;
    use Sys::Hostname;
    my $HOSTNAME = hostname();
    my $ip = inet_ntoa((gethostbyname($HOSTNAME))[4]);

Men er den altid 100% sikker?