#!perl -w
# --- <sammlung1.pl> -----------------------------------
#Programm: sammlung1.pl
#Datum: 27.08.2003

print "Wie ist Ihr Name? ";
$name = <STDIN>;
chomp($name);

print "Hallo $name, dies ist meine Whiskeysammlung:";
print <<TEXTENDE;
-----------------------------------
MacAllan 1861 replica
Scapa, 1966
Lagavulin, 16 Jahre (6 Flaschen)
Textende
TEXTENDE
#
# --- </sammlung1.pl> -----------------------------------