diff --git a/contrib/99_dumpdef.pm b/contrib/99_dumpdef.pm
index a5ffc1ab2..d95bf0d3f 100644
--- a/contrib/99_dumpdef.pm
+++ b/contrib/99_dumpdef.pm
@@ -1,5 +1,31 @@
+#!/usr/bin/perl
 ##############################################
+#
 # VarDump for FHEM-Devices
+#
+##############################################
+#
+#  Copyright notice
+#
+#  (c) 2009 - 2010
+#  Copyright: Axel Rieger (fhem BEI anax PUNKT info)
+#  All rights reserved
+#
+#  This script free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License, or
+#  (at your option) any later version.
+#
+#  The GNU General Public License can be found at
+#  http://www.gnu.org/copyleft/gpl.html.
+#  A copy is found in the textfile GPL.txt and important notices to the license
+#  from the author is found in LICENSE.txt distributed with these scripts.
+#
+#  This script is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#
 ##############################################
 # Installation
 # 99_dumpdef.pm ins FHEM-Verzeichis kopieren
@@ -10,6 +36,7 @@
 # Aufruf: dumpdef <XXX>
 # <MOD> = %modules
 # <SEL> = %selectlist
+# <VAL> = %value
 # <CMD> = %cmds
 # <DAT> = %data
 ##############################################
@@ -18,6 +45,12 @@ use strict;
 use warnings;
 use POSIX;
 use Data::Dumper;
+use vars qw(%data);
+use vars qw(%cmds);
+use vars qw(%attr);
+use vars qw(%defs);
+use vars qw(%modules);
+use vars qw(%selectlist);
 sub Commanddumpdef($);
 
 #####################################
@@ -34,20 +67,29 @@ dumpdef_Initialize($)
 sub Commanddumpdef($)
 {
   my ($cl, $d) = @_;
+#  $d = $a[1];
   return "Usage: dumpdef <DeviceName>" if(!$d);
   my($package, $filename, $line, $subroutine) = caller(3);
   my $r = "CALLER => $package: $filename LINE: $line SUB: $subroutine \n";
   $r .= "SUB-NAME: " .(caller(0))[3] . "\n";
+  $r .= "--------------------------------------------------------------------------------\n";
+  $Data::Dumper::Maxdepth = 4;
   if($d eq "CMD") {$r .= Dumper(%cmds) . "\n"; return $r; }
   if($d eq "DAT") {$r .= Dumper(%data) . "\n"; return $r; }
   if($d eq "MOD") {$r .= Dumper(%modules) . "\n"; return $r; }
   if($d eq "SEL") {$r .= Dumper(%selectlist) . "\n"; return $r; }
+  if($d eq "DEF") {$r .= Dumper(%defs) . "\n"; return $r; }
+
   if(!defined($defs{$d})) {
     return "Unkown Device";} 
   $r .= "DUMP-DEVICE: $d \n";
   $r .= Dumper($defs{$d}) . "\n";
+  $r .= "--------------------------------------------------------------------------------\n";
   $r .= "DUMP-DEVICE-ATTR \n";
   $r .= Dumper($attr{$d}) . "\n";
+  $r .= "--------------------------------------------------------------------------------\n";
+  $r .= "DUMP-DEVICE-Module \n";
+  $r .= Dumper($modules{$defs{$d}{TYPE}}) . "\n";
   return $r;
 }
 1;