$ perl -Mstrict -MDateTime -wlE 'say join", ", map { DateTime->new( locale => "de", year => 1970, month => 1, day => 4 + $_ )->format_cldr("ccc") } 0 .. 6'

So, Mo, Di, Mi, Do, Fr, Sa