in reply to how to accept password using Tk
Use Tk::Entry instead:
$MainWindow->Entry( -show=>'*', -relief=>'ridge', -textvariable=>\$password )->pack;
-Nitrox
In Section
Seekers of Perl Wisdom