my $node = Tk::GraphItems->TextBox(canvas => $can, text => 'test', x => 50, y => 50);