Or, better yet:

  my $dmy = DateTime->now()->dmy('.');
[download]

I discovered the mdy() method a few days ago and it's a pretty sweet time-saver. I guess dmy() would be the equivalent outside the US.

-sam