use Time::localtime;
my $lt = localtime;
print "Today's day of the month is ", $lt->mday;