my $dateiengesamt = @safe_datei;
my $dateienfertig = 0;
while ($dateienfertig < $dateiengesamt)