use Term::ReadKey;
# use Term::Screen;

# my $scr;
# $scr = Term::Screen->new;
# unless ($scr) { die "Couldn't create object for Term::Screen\n"; }
# $scr->clrscr;

# Get the user name and password
my ($user, $key);
print "\nYour name: ";

ReadMode 4; # Turn off controls keys
while (1)  {
    $key = ReadKey(0);
    if (ord($key) == 13)  {
        print "Newline got at 13";
        last;
    }
    if (ord($key) == 10)  {
        print "Newline got at 10";
        last;
    }
    print $key, "--", ord($key),"\n";
}
print $key, "--", ord($key),"\n";
ReadMode 0; # Reset tty mode before exiting