use Tk;
  use Tk::DataTree;
  
  $mw = MainWindow->new(-title =>'DataTree');
  $dt = $mw->DataTree;
  
  $dt->data( { foo => 1, bar => [2, 3] } )->pack;
  Mainloop;