#!/usr/bin/perl
        
        print "Wen oder was moechten Sie gruessen? : \n";
        $input = <STDIN>;
        chomp ($input);

        if ($input eq "Erna")
                        {
                print "Hallo, Erna. Dich gruesse ich nicht mehr, tust Du ja auch nie!\n";
                        }
        elsif ($input eq "Otto")
                        {
                print "Hallo, Otto. Viele Gruesse von Erna, die ich nicht mehr Gruesse.\n";
                        }
        elsif ($input eq "Karl")
                        {
                print "Hallo, Karl. Dies ist kein Gruss.\n";
                        }

    else        {
                print "Hallo, $input, wer bist Du denn?\n";
                        }