perl -e "my $test = (localtime)[6];print $test"
5