Or one other way, just for fun, and because I like the fact that it's way easy to remember:

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

perldoc Time::localtime for more details.