#!/usr/local/bin/perl -w
use Tk;

my $mw = MainWindow->new;
$mw->withdraw;
my $sun = $mw->SelectionExists('-selection'=>"_SUN_DRAGDROP_DSDM");
if ($sun)
 {
  printf "%x\n",$sun;
  foreach ($mw->SelectionGet('-selection'=>"_SUN_DRAGDROP_DSDM",'TARGETS'))
   {
    print " target:$_\n";
   }
  foreach ($mw->property('list',$sun))
   {
    print " prop:$_\n";
   }
 }