#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

print "Unsichtbare Eingabe> ";    # Eingabeaufforderung 
                                  # ausgeben

system("stty -echo");             # Terminal auf no-echo 
                                  # setzen
$word = <STDIN>;                  # Eingabe entgegennehmen
system("stty echo");              # Terminal rücksetzen

chop($word);                      # Letztes Newline 
                                  # abschneiden



print "\nEingabe war: $word\n";   # Eingabe probehalber 
                                  # ausgeben