my $passwd;
my $password = $dialog->add("Entry",
                            -show => "*",
                            -textvariable => \$passwd)
                      ->pack();