my $wday = ( localtime(time) )[6];