sub delete_files{
    my ($dir,$name) = @_;
    # Endung .log abschneiden
    unless ($name =~ s/\.log$//) {
        warn "$name endet nicht auf .log, nichts gelöscht.\n";
        return;
    }
    for my $suffix (qw/log inx pdf/) {
        my $filepath = "$dir/$name.$suffix";
        unlink $filepath or warn "kann $filepath nicht löschen: $!\n";
    }
}