use Win32::IPConfig ();

my $ipconfig = Win32::IPConfig->new();

foreach my $adapter ($ipconfig->get_adapters()) {
   foreach my $ip_addr ($adapter->get_ipaddresses()) {
      print("$ip_addr\n");
   }
}