Select Code to Download

perl -MDateTime -le '@wd=map {DateTime->new(locale=> "de", year=>1970,
+month=>1,day=>4+$_)->strftime("%a")} (0..6);print join",",@wd'

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

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