my ($what) = @_;
    my $what_val = $what->get;            # use get to access contents of entry

 $canvas ->createText($range[0],$range[1], -text=>"$what_val\n");



##</code><code>##

 elsif ($drawItem eq "text"){

    my $main = MainWindow->new;
    $main->Label(-text => 'Annotation Entry')->pack; # create an annotation label and pack it
    my $say = $main->Entry(-width => 100);

    $say->pack;

    $main->Button(-text => 'Enter',
              -command => sub{do_say($say)}


     )->pack;