diff --git a/82_LGTV_WebOS.pm b/82_LGTV_WebOS.pm
index a3da4f3..1f48bab 100644
--- a/82_LGTV_WebOS.pm
+++ b/82_LGTV_WebOS.pm
@@ -2,7 +2,7 @@
 # 
 # Developed with Kate
 #
-#  (c) 2017 Copyright: Marko Oldenburg (leongaultier at gmail dot com)
+#  (c) 2017-2018 Copyright: Marko Oldenburg (leongaultier at gmail dot com)
 #  All rights reserved
 #
 #   Special thanks goes to comitters:
@@ -53,21 +53,23 @@
 
 package main;
 
+my $missingModul = "";
+
 use strict;
 use warnings;
 
-use MIME::Base64;
-use IO::Socket::INET;
-use Digest::SHA qw(sha1_hex);
-use JSON qw(decode_json encode_json);
-use Encode qw(encode_utf8 decode_utf8);
-use Blocking;
+eval "use MIME::Base64;1" or $missingModul .= "MIME::Base64 ";
+eval "use IO::Socket::INET;1" or $missingModul .= "IO::Socket::INET ";
+eval "use Digest::SHA qw(sha1_hex);1" or $missingModul .= "Digest::SHA ";
+eval "use JSON qw(decode_json encode_json);1" or $missingModul .= "JSON ";
+eval "use Encode qw(encode_utf8 decode_utf8);1" or $missingModul .= "Encode ";
+eval "use Blocking;1" or $missingModul .= "Blocking ";
 
 
 
 
 
-my $version = "2.0.2";
+my $version = "2.0.3";
 
 
 
@@ -235,6 +237,7 @@ sub LGTV_WebOS_Define($$) {
     
 
     return "too few parameters: define <name> LGTV_WebOS <HOST>" if( @a != 3 );
+    return "Cannot define LGTV_WebOS device. Perl modul ${missingModul}is missing." if ( $missingModul );