in reply to How do I find today's date?

You can also use POSIX::strftime: 
use POSIX qw(strftime);
print "today's date is ", strftime( '%b %e, %Y', localtime );

[download]

In Section Seekers of Perl Wisdom