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