#!/Perl/bin/perl

use strict;
use warnings;
$| = 1; #flush output
my $name;

print "Wie heissen Sie? ";

# der <> Operator dient zum Lesen von Datenströmen (Files oder SDTIN) 
$name = <STDIN>;

# Der Operator chomp entfernt
# entfernt das Zeilenende (\n unter UNIX, \r\n unter Windows)
chomp $name;			

print "Hallo $name! \n";
exit 0;