Select Code to Download

my $mw   = new MainWindow();
my $text = "This is an entry box";

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