#!/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";
 			}