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

print "Eingabe> ";            # Aufforderung zur Eingabe 
                              # ausgeben

$word = <STDIN>;              # Eingaben entgegennehmen

chop($word);                  # Abschließendes Newline 
                              # entfernen

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