use strict;
use Win32::IPHelper;

my @Adapters;
Win32::IPHelper::GetAdaptersInfo(\@Adapters);

foreach my $Adapter (@Adapters) {
	foreach my $IP (@{$Adapter->{IpAddressList}}) {
		print "IP = $IP->{IpAddress}\n";
	}
}