diff --git a/fhem/CHANGED b/fhem/CHANGED
index e944df7f1..23b28d791 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.
+ - change:  70_CanOverEthernet: changed indirect object notation (Perl 7 comp)
  - change:  70_ZoneMinder: fixed authentication for 1.34.x, API 2.0
  - feature: 98_weekprofile: custom temperature keywords
  - change:  72_TA_CMI_JSON: introduced module package
diff --git a/fhem/FHEM/70_CanOverEthernet.pm b/fhem/FHEM/70_CanOverEthernet.pm
index 3835a9fca..51200c8f5 100644
--- a/fhem/FHEM/70_CanOverEthernet.pm
+++ b/fhem/FHEM/70_CanOverEthernet.pm
@@ -209,7 +209,7 @@ sub CanOverEthernet_sendDataAnalog {
   my @values = @{$valuesRef};
   my @types = @{$typesRef};
 
-  my $socket = new IO::Socket::INET (
+  my $socket = IO::Socket::INET->new(
     PeerAddr=>$targetIp,
     PeerPort=>5441,
     Proto=>"udp"
@@ -255,7 +255,7 @@ sub CanOverEthernet_sendDataDigital {
   my ( $hash, $targetIp, $targetNode, @values ) = @_;
   my $name = $hash->{NAME};
 
-  my $socket = new IO::Socket::INET (
+  my $socket = IO::Socket::INET->new(
     PeerAddr=>$targetIp,
     PeerPort=>5441,
     Proto=>"udp"