Select Code to Download

use strict;
use warnings;
...
print "Monday this week is $year/$month/$day\n";

Monday this week is 2005/6/20