my $dayOfMonth = (localtime)[3]; print "Today is day $dayOfMonth.";