Thank you for responding, and you are of course right. I also got this respons from somewhere else:

Apply the following patch to Module::ScanDeps 0.51 which teaches it to preload everything below Tk/DragDrop/ once it encounters Tk/DragDrop/Common.pm.

--- Module/ScanDeps.pm.orig    2005-05-19 13:36:11.000000000 +0200
+++ Module/ScanDeps.pm    2005-05-19 13:49:59.000000000 +0200
@@ -295,6 +295,9 @@
     'Tk/Balloon.pm'     => [qw( Tk/balArrow.xbm )],
     'Tk/BrowseEntry.pm' => [qw( Tk/cbxarrow.xbm Tk/arrowdownwin.xbm )
+],
     'Tk/ColorEditor.pm' => [qw( Tk/ColorEdit.xpm )],
+    'Tk/DragDrop/Common.pm' => sub {
+        _glob_in_inc('Tk/DragDrop', 1);
+    },
     'Tk/FBox.pm'        => [qw( Tk/folder.xpm Tk/file.xpm )],
     'Tk/Toplevel.pm'    => [qw( Tk/Wm.pm )],
     'URI.pm'            => sub {
[download]

Regards
Ronny