diff --git a/fhem/FHEM/00_HMLAN.pm b/fhem/FHEM/00_HMLAN.pm
new file mode 100755
index 000000000..1c8df74cf
--- /dev/null
+++ b/fhem/FHEM/00_HMLAN.pm
@@ -0,0 +1,438 @@
+##############################################
+package main;
+
+use strict;
+use warnings;
+use Time::HiRes qw(gettimeofday);
+
+sub HMLAN_Parse($$);
+sub HMLAN_Read($);
+sub HMLAN_Write($$$);
+sub HMLAN_ReadAnswer($$$);
+sub HMLAN_uptime($);
+
+sub HMLAN_OpenDev($$);
+sub HMLAN_CloseDev($);
+sub HMLAN_SimpleWrite(@);
+sub HMLAN_SimpleRead($);
+sub HMLAN_Disconnected($);
+
+my %sets = (
+  "hmPairForSec" => "HomeMatic",
+  "hmPairSerial" => "HomeMatic",
+);
+
+sub
+HMLAN_Initialize($)
+{
+  my ($hash) = @_;
+
+# Provider
+  $hash->{ReadFn}  = "HMLAN_Read";
+  $hash->{WriteFn} = "HMLAN_Write";
+  $hash->{ReadyFn} = "HMLAN_Ready";
+  $hash->{Clients} = ":CUL_HM:";
+  my %mc = (
+    "1:HMLAN_HM" => "^A......................",
+  );
+  $hash->{MatchList} = \%mc;
+
+# Normal devices
+  $hash->{DefFn}   = "HMLAN_Define";
+  $hash->{UndefFn} = "HMLAN_Undef";
+  $hash->{AttrList}= "do_not_notify:1,0 dummy:1,0 " .
+                     "loglevel:0,1,2,3,4,5,6 addvaltrigger " . 
+                     "hmId hmProtocolEvents";
+}
+
+#####################################
+sub
+HMLAN_Define($$)
+{
+  my ($hash, $def) = @_;
+  my @a = split("[ \t][ \t]*", $def);
+
+  if(@a != 3) {
+    my $msg = "wrong syntax: define <name> HMLAN ip[:port]";
+    Log 2, $msg;
+    return $msg;
+  }
+  HMLAN_CloseDev($hash);
+
+  my $name = $a[0];
+  my $dev = $a[2];
+  $dev .= ":1000" if($dev !~ m/:/);
+  $attr{$name}{hmId} = sprintf("%06X", time()&0xffffff);
+
+  if($dev eq "none") {
+    Log 1, "$name device is none, commands will be echoed only";
+    $attr{$name}{dummy} = 1;
+    return undef;
+  }
+  $hash->{DeviceName} = $dev;
+  my $ret = HMLAN_OpenDev($hash, 0);
+  return $ret;
+}
+
+
+#####################################
+sub
+HMLAN_Undef($$)
+{
+  my ($hash, $arg) = @_;
+  my $name = $hash->{NAME};
+
+  foreach my $d (sort keys %defs) {
+    if(defined($defs{$d}) &&
+       defined($defs{$d}{IODev}) &&
+       $defs{$d}{IODev} == $hash)
+      {
+        my $lev = ($reread_active ? 4 : 2);
+        Log GetLogLevel($name,$lev), "deleting port for $d";
+        delete $defs{$d}{IODev};
+      }
+  }
+
+  HMLAN_CloseDev($hash); 
+  return undef;
+}
+
+#####################################
+sub
+HMLAN_RemoveHMPair($)
+{
+  my $hash = shift;
+  delete($hash->{hmPair});
+}
+
+
+#####################################
+sub
+HMLAN_Set($@)
+{
+  my ($hash, @a) = @_;
+
+  return "\"set HMLAN\" needs at least one parameter" if(@a < 2);
+  return "Unknown argument $a[1], choose one of " . join(" ", sort keys %sets)
+  	if(!defined($sets{$a[1]}));
+
+  my $name = shift @a;
+  my $type = shift @a;
+  my $arg = join("", @a);
+  my $ll = GetLogLevel($name,3);
+
+  if($type eq "hmPairForSec") { ####################################
+    return "Usage: set $name hmPairForSec <seconds_active>"
+        if(!$arg || $arg !~ m/^\d+$/);
+    $hash->{hmPair} = 1;
+    InternalTimer(gettimeofday()+$arg, "HMLAN_RemoveHMPair", $hash, 1);
+
+  } elsif($type eq "hmPairSerial") { ################################
+    return "Usage: set $name hmPairSerial <10-character-serialnumber>"
+        if(!$arg || $arg !~ m/^.{10}$/);
+
+    my $id = AttrVal($hash->{NAME}, "hmId", undef);
+    $hash->{HM_CMDNR} = $hash->{HM_CMDNR} ? ($hash->{HM_CMDNR}+1)%256 : 1;
+FixMe();
+    HMLAN_SimpleWrite($hash, sprintf("As15%02x8401%s000000010A%s",
+                    $hash->{HM_CMDNR}, $id, unpack('H*', $arg)));
+    $hash->{hmPairSerial} = $arg;
+
+  }
+  return undef;
+}
+
+
+#####################################
+# This is a direct read for commands like get
+sub
+HMLAN_ReadAnswer($$$)
+{
+  my ($hash, $arg, $regexp) = @_;
+  my $type = $hash->{TYPE};
+
+  return ("No FD", undef)
+        if(!$hash && !defined($hash->{FD}));
+
+  my ($mdata, $rin) = ("", '');
+  my $buf;
+  my $to = 3;                                         # 3 seconds timeout
+  $to = $hash->{RA_Timeout} if($hash->{RA_Timeout});  # ...or less
+  for(;;) {
+
+    return ("Device lost when reading answer for get $arg", undef)
+      if(!$hash->{FD});
+    vec($rin, $hash->{FD}, 1) = 1;
+    my $nfound = select($rin, undef, undef, $to);
+    if($nfound < 0) {
+      next if ($! == EAGAIN() || $! == EINTR() || $! == 0);
+      my $err = $!;
+      HMLAN_Disconnected($hash);
+      return("HMLAN_ReadAnswer $arg: $err", undef);
+    }
+    return ("Timeout reading answer for get $arg", undef)
+      if($nfound == 0);
+    $buf = HMLAN_SimpleRead($hash);
+    return ("No data", undef) if(!defined($buf));
+
+    if($buf) {
+      Log 5, "HMLAN/RAW (ReadAnswer): $buf";
+      $mdata .= $buf;
+    }
+    if($mdata =~ m/\r\n/) {
+      if($regexp && $mdata !~ m/$regexp/) {
+        HMLAN_Parse($hash, $mdata);
+      } else {
+        return (undef, $mdata)
+      }
+    }
+  }
+}
+
+#####################################
+sub
+HMLAN_Write($$$)
+{
+  my ($hash,$fn,$msg) = @_;
+  Log 1, "IN: $msg";
+
+  my $tm = int(gettimeofday()*1000) & 0xffffffff;
+  $msg = sprintf("S%08X,00,00000000,01,%08X,%s",
+                $tm, $tm, substr($msg, 4));
+  Log 1, "$hash->{NAME} sending $msg";
+  HMLAN_SimpleWrite($hash, $msg);
+}
+
+#####################################
+# called from the global loop, when the select for hash->{FD} reports data
+sub
+HMLAN_Read($)
+{
+  my ($hash) = @_;
+
+  my $buf = HMLAN_SimpleRead($hash);
+  my $name = $hash->{NAME};
+
+  if(!defined($buf) || length($buf) == 0) {
+    HMLAN_Disconnected($hash);
+    return "";
+  }
+
+  my $hmdata = $hash->{PARTIAL};
+  Log 5, "HMLAN/RAW: $hmdata/$buf";
+  $hmdata .= $buf;
+
+  while($hmdata =~ m/\n/) {
+    my $rmsg;
+    ($rmsg,$hmdata) = split("\n", $hmdata, 2);
+    $rmsg =~ s/\r//;
+    HMLAN_Parse($hash, $rmsg) if($rmsg);
+  }
+  $hash->{PARTIAL} = $hmdata;
+}
+
+sub
+HMLAN_uptime($)
+{
+  my $msec = shift;
+
+  $msec = hex($msec);
+  my $sec = int($msec/1000);
+  return sprintf("%03d %02d:%02d:%02d.%03d",
+                  int($msec/86400000), int($sec/3600),
+                  int(($sec%3600)/60), $sec%60, $msec % 1000);
+}
+
+sub
+HMLAN_Parse($$)
+{
+  my ($hash, $rmsg) = @_;
+  my $name = $hash->{NAME};
+  my $rssi;
+
+  my $dmsg = $rmsg;
+
+  if($rmsg =~ m/E(......),(....),(........),(..),(....),(.*)/) {
+    my ($src, $d1, $msec, $d2, $rssi, $msg) =
+       ($1,   $2,  $3,    $4,  $5,    $6);
+    $dmsg = sprintf("A%02X%s", length($msg)/2, uc($msg));
+    $hash->{uptime} = HMLAN_uptime($msec);
+
+  } elsif($rmsg =~ m/HHM-LAN-IF,(....),(..........),(......),(......),(........),(....)/) {
+    my ($vers,    $serno, $d1, $owner, $msec, $d2) =
+       (hex($1), $2,     $3,  $4,     $5,    $6);
+    $hash->{serialNr} = $serno;
+    $hash->{firmware} = sprintf("%d.%d", ($vers>>12)&0xf, $vers & 0xffff);
+    $hash->{owner} = $owner;
+    $hash->{uptime} = HMLAN_uptime($msec);
+    my $myId = AttrVal($name, "hmId", $owner);
+    if($owner ne $myId && !AttrVal($name, "dummy", 0)) {
+      Log 1, "HMLAN setting owner to $myId from $owner";
+      HMLAN_SimpleWrite($hash, "A$myId");
+    }
+    return;
+
+  } else {
+    Log 1, "$name Unknown msg $rmsg";
+    return;
+
+  }
+
+  $hash->{"${name}_MSGCNT"}++;
+  $hash->{"${name}_TIME"} = TimeNow();
+  $hash->{RAWMSG} = $rmsg;
+  my %addvals = (RAWMSG => $rmsg);
+  if(defined($rssi)) {
+    $hash->{RSSI} = $rssi;
+    $addvals{RSSI} = $rssi;
+  }
+  Dispatch($hash, $dmsg, \%addvals);
+}
+
+
+#####################################
+sub
+HMLAN_Ready($)
+{
+  my ($hash) = @_;
+
+  return HMLAN_OpenDev($hash, 1);
+}
+
+########################
+sub
+HMLAN_SimpleWrite(@)
+{
+  my ($hash, $msg, $nonl) = @_;
+  return if(!$hash);
+
+  Log 1, "SW: $msg";
+  $msg .= "\n" unless($nonl);
+  syswrite($hash->{TCPDev}, $msg)     if($hash->{TCPDev});
+  select(undef, undef, undef, 0.001);
+}
+
+########################
+sub
+HMLAN_SimpleRead($)
+{
+  my ($hash) = @_;
+
+  if($hash->{TCPDev}) {
+    my $buf;
+    if(!defined(sysread($hash->{TCPDev}, $buf, 256))) {
+      HMLAN_Disconnected($hash);
+      return undef;
+    }
+    return $buf;
+  }
+  return undef;
+}
+
+########################
+sub
+HMLAN_CloseDev($)
+{
+  my ($hash) = @_;
+  my $name = $hash->{NAME};
+  my $dev = $hash->{DeviceName};
+
+  return if(!$dev);
+  
+  if($hash->{TCPDev}) {
+    $hash->{TCPDev}->close();
+    delete($hash->{TCPDev});
+
+  }
+  delete($selectlist{"$name.$dev"});
+  delete($readyfnlist{"$name.$dev"});
+  delete($hash->{FD});
+}
+
+########################
+sub
+HMLAN_OpenDev($$)
+{
+  my ($hash, $reopen) = @_;
+  my $dev = $hash->{DeviceName};
+  my $name = $hash->{NAME};
+
+  $hash->{PARTIAL} = "";
+  Log 3, "HMLAN opening $name device $dev"
+        if(!$reopen);
+
+  if($dev =~ m/^.+:\d+$/) {       # host:port
+
+    # This part is called every time the timeout (5sec) is expired _OR_
+    # somebody is communicating over another TCP connection. As the connect
+    # for non-existent devices has a delay of 3 sec, we are sitting all the
+    # time in this connect. NEXT_OPEN tries to avoid this problem.
+    if($hash->{NEXT_OPEN} && time() < $hash->{NEXT_OPEN}) {
+      return;
+    }
+
+    my $conn = IO::Socket::INET->new(PeerAddr => $dev);
+    if($conn) {
+      delete($hash->{NEXT_OPEN})
+
+    } else {
+      Log(3, "Can't connect to $dev: $!") if(!$reopen);
+      $readyfnlist{"$name.$dev"} = $hash;
+      $hash->{STATE} = "disconnected";
+      $hash->{NEXT_OPEN} = time()+60;
+      return "";
+    }
+
+    $hash->{TCPDev} = $conn;
+    $hash->{FD} = $conn->fileno();
+    delete($readyfnlist{"$name.$dev"});
+    $selectlist{"$name.$dev"} = $hash;
+
+    InternalTimer(gettimeofday()+25, "HMLAN_KeepAlive", $hash, 0);
+  }
+
+  if($reopen) {
+    Log 1, "HMLAN $dev reappeared ($name)";
+  } else {
+    Log 3, "HMLAN device opened";
+  }
+
+  $hash->{STATE}="Initialized";
+
+  DoTrigger($name, "CONNECTED") if($reopen);
+  return "";
+}
+
+#####################################
+sub
+HMLAN_KeepAlive($)
+{
+  my $hash = shift;
+  return if(!$hash->{FD});
+  HMLAN_SimpleWrite($hash, "K");
+  InternalTimer(gettimeofday()+25, "HMLAN_KeepAlive", $hash, 1);
+}
+
+
+
+sub
+HMLAN_Disconnected($)
+{
+  my $hash = shift;
+  my $dev = $hash->{DeviceName};
+  my $name = $hash->{NAME};
+
+  return if(!defined($hash->{FD}));                 # Already deleted or RFR
+
+  Log 1, "$dev disconnected, waiting to reappear";
+  HMLAN_CloseDev($hash);
+  $readyfnlist{"$name.$dev"} = $hash;               # Start polling
+  $hash->{STATE} = "disconnected";
+
+  # Without the following sleep the open of the device causes a SIGSEGV,
+  # and following opens block infinitely. Only a reboot helps.
+  sleep(5);
+  DoTrigger($name, "DISCONNECTED");
+}
+
+1;