Select Code to Download

$tree->bind('<Double-1>' => sub {
  print "Got:\n";
  print "  $_\n" for $tree->info('selection');
});