$sun->DropSite(
  -droptypes => ['KDE','XDND','Sun'],
  -dropcommand => sub {
    $data = $sun->SelectionGet(-selection => $_[0]);
  }
}