@d = qw[MON TUE WED THU FRI SAT SUN];
@t = localtime;
$t[4]++; $t[5] += 1900;
open(DOC, "> $d[$t[6]]_$t[3]$t[4]$t[5].doc") or die $!;