my $entry = $mw->Entry(-textvariable => \$text)->pack();
                                        ^
                                        |