#!/usr/bin/perl -w
######################################################################
# pass.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

print "Hidden input> ";        # display input prompt

system("stty -echo");          # set terminal to no-echo
$word = <STDIN>;               # receive input
system("stty echo");           # reset terminal

chop($word);                   # cut off last newline

print "\nInput was: $word\n";  # display input for checking