use Win32::IPHelper;
  use Data::Dumper;
  my $IfIndex;
  # the value for AdapterName is found in @IP_ADAPTER_INFO, for example
  # $IP_ADAPTER_INFO[0]{'AdapterName'};
  my $AdapterName = '{05BD2B74-F102-4A5E-BED6-11373A07D16D}'; # BITTE ANPASSEN
  $ret = Win32::IPHelper::GetAdapterIndex(\$AdapterName,\$IfIndex);
  if($ret == 0)
  {
    my %MIB_IFROW;
    $ret = Win32::IPHelper::GetIfEntry($IfIndex,\%MIB_IFROW);
    if($ret == 0)
        {
      print Data::Dumper->Dump([\%MIB_IFROW], [qw(MIB_IFROW)]);
    }
    else
    {
      printf "GetIfEntry() error %u: %s\n", $ret, Win32::FormatMessage($ret);
    }
  }
  else
  {
    printf "GetAdapterIndex() error %u: %s\n", $ret, Win32::FormatMessage($ret);
  }