While not the best way here is yet another way.

use strict;
use warnings;

my (undef, undef, undef, $dayOfMonth, undef, undef, undef, undef, unde
+f) = localtime();

print "Today is day $dayOfMonth.";
[download]