my $entry=$mw->Entry(-textvariable=>\$string)->pack();