Without looking at the actual Tk::DataTree documentation, but shouldn't the ->pack() call be applied to the widget, not to a random method call? So it should be:

$dt = $mw->DataTree->pack;
$dt->data( { foo => 1, bar => [2, 3] } );
[download]