my $up = Tk::UserPassword->new();
my ($user,$pass) = $up->Show();