#!/usr/bin/perl -w
use strict;
my $line;

while ($line ne "ENDE" && $line ne "QUIT") {
 $line=<STDIN>;
 chomp $line;
 print "Input2: $line\n";
}