in reply to Getting own ip-addresses on Win32 machines

You might wanna checkout the PerlMonks Snippet Index, I found these there
Re: Getting the latest IP after dial-up
How do I find out my hostname/domainname/IP address?

Getting your real external ip from an external source.
Get actual IP over NAT
Finding your IP address with Perl