#!/usr/bin/perl

use POSIX 'strftime';

my @now = localtime;
my @first = @now;
$first[3] = 0;
print strftime('%V',@now) - strftime('%V',@first), $/
__END__
3
##</code><code>##

print 1 + int((localtime)[3]/7),$/;