Exemplo de uso do módulo Term::InKey

Descrição

Esconder código-fonte

#!/usr/bin/env perl
#
# Exemplo de uso do modulo 'Term::InKey' 
#
# Mais detalhes: <man perl> e <perldoc Term::InKey>
#
use strict "vars";
use Term::InKey;

my($caracteres, $mascara) = ("", "*");

$| = 'flush'; 

print("Digite a senha: ");

$caracteres = &ReadPassword($mascara);

print("A senha digitada foi \'$caracteres\'\n");

flush;

exit(0);