print "Bitte geben Sie den Dateinamen an: \n";
$datei = <STDIN>;
chop $datei;

if(not ( (-e $datei) or (-s $datei)))
{
	die ("Die Datei ist leer oder existiert nicht\n");
}
open (EINGABE, "<$datei") || die $!;
while (<EINGABE>) {
print "\n$_\n";
}
close (EINGABE);
print "\nIhre Datei wurde nun Lexikografisch sortiert\n";
<>