use warnings;
use strict;
print "Bitte geben Sie den Dateinamen an: ";
my $datei = <STDIN>;
chomp $datei;

if (not -s $datei) {
    die ("Die Datei ist leer oder existiert nicht.\n");
}
open (my $EINGABE, '<', $datei) or die "Can't open $datei: $!\n";

my @zeilen = <$EINGABE>;

@zeilen = sort @zeilen;

print $_ foreach @zeilen;

close ($EINGABE);

print "\nIhre Datei wurde nun Lexikografisch sortiert. [OK] ";
<STDIN>;