X Error of failed request:  BadWindow (invalid Window parameter)
  Major opcode of failed request:  25 (X_SendEvent)
  Resource id in failed request:  0x2fd00fd
  Serial number of failed request:  164
  Current serial number in output stream:  165

##</code><code>##

#!/usr/bin/perl
use strict;
use Tk;
use Tk::DropSite;

my $mw = new MainWindow(-width => 500, -height => 300);
my $label = $mw->Label()->pack->place(-relwidth => 1.0, -relheight => 1.0);
$label->DropSite(-droptypes => ['XDND'], -dropcommand => [\&dropFile, $label]);

MainLoop;

sub dropFile {
  print "DROP\n";
}