sub print_formatted{
        my ($max,$t1,$t2,$t3,$t4,$t5,$t6) = @_;

        # berechne den linken Rand $lRand
        my ($lRand) = int( ($max - length $t4) / 2 );
        # berechne den rechten Rand $rRand
        my $rRand = $max - $lRand - length $t4;

        my $format = "%6d %-12s %-12s %*s%s%*s %-12s %10d\n";

        print sprintf $format, $t1,$t2,$t3,$lRand,' ',$t4,$rRand,' ',$t5,$t6;
}