#!/usr/bin/perl
use Tk;

my $MainWindow = MainWindow->new;
$MainWindow->title("Password Entry");

$MainWindow -> Label(-justify => 'left',
                     -text => "Name : ")
                    ->pack();
my $entry = $MainWindow -> Entry(-selectborderwidth => 10)
                    ->pack();
$MainWindow -> Label(-justify => 'left',
                     -text => "Password: ")
                     ->pack();
my $entry1 = $MainWindow -> Entry(-selectborderwidth => 10,
                                  -show => "*")
                        ->pack();

$MainWindow -> Button(-text => "SUBMIT",
                     -command => \&somesub)
             ->pack(-side => 'bottom',-anchor => 'center');

$entry->bind('<Return>',[\&somesub]);
$entry->focus;
MainLoop;

sub somesub {
    $name = $entry -> get;
    $password = $entry1->get;
    print "name ->$name\n";
    print "password ->$password\n";
    $MainWindow -> destroy;
    }