#!/usr/local/bin/perl
#
###################################################################
#
# Description: This prevents what the user types from being
#              output to the screen. Useful for having a user
#              type in a password...
#
####################################################################

use Term::ReadKey;


print "Password: ";

ReadMode('noecho');
$password = ReadLine(0);
ReadMode 0; # reset

print "\n\n  You typed: $password\n";




__END__