diff --git a/fhem/CHANGED b/fhem/CHANGED
index 534979c09..9317c6d2d 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,5 +1,6 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
+  - bugfix:  42_SYSMON: PERL WARNING: Use of uninitialized value
   - bugfix:  59_WUup.pm: fix state and missing attributes (#695364, #696275)
   - change:  93_DbLog: V2.22.10, adapted to use extended abortArg
   - change:  76_SMAInverter: V2.9.2, adapted to use extended abortArg
diff --git a/fhem/FHEM/42_SYSMON.pm b/fhem/FHEM/42_SYSMON.pm
index 88b2da076..1b3b9c3c4 100644
--- a/fhem/FHEM/42_SYSMON.pm
+++ b/fhem/FHEM/42_SYSMON.pm
@@ -42,7 +42,7 @@ use Data::Dumper;
 my $missingModulRemote;
 eval "use Net::Telnet;1" or $missingModulRemote .= "Net::Telnet ";
 
-my $VERSION = "2.3.2";
+my $VERSION = "2.3.3";
 
 use constant {
   PERL_VERSION    => "perl_version",
@@ -2851,6 +2851,7 @@ sub SYSMON_getNetworkInfo ($$$) {
         #my @iwData = SYSMON_execute($hash, "/sbin/iwconfig $nName 2>/dev/null");
         my @iwData = SYSMON_execute($hash, "/sbin/iwconfig $nDef 2>/dev/null");
         foreach (@iwData) {
+          next unless ($_);
           if($_=~ m/Bit\sRate+(=|:)*(\S*)/) {
             $speed=$2;
           }