use strict;
use warnings;

my (undef, undef, undef, $dayOfMonth, undef, undef, undef, undef, undef) = localtime();

print "Today is day $dayOfMonth.";