#!/Perl/bin/perl
use strict;
use warnings;

$| = 1; #flush output

my $name;
print "Wie heissen Sie? ";
$name = <STDIN>;
chomp $name;

# Der Vergleich von Strings erfolgt durch den eq
# Operator. 
# PERL kennt wie die meisten Programmiersprachen die if-else Konstruktion
# und Bloecke mit geschweiften Klammern

if ( $name eq "gerhard" ) {
    print "Hallo Gerhard, wie nett dass du da bist!\n";
} 
else {
    print "Hallo $name!\n"; # Standard Gruss
}
exit;