use warnings;
use diagnostics;
open (DATEI, "$eingabedatei") or die $!;