setlocale( LC_TIME, $lang );

my @date=localtime(time);
my @wd = map {@date[6]=$_;strftime("%a",@date)} (0..6);