my $day = (localtime())[7]; my $week_num = int($day/7) + 1;