Or better yet, avoid forking `date` by using core perl to do the same thing...

#!/usr/bin/perl -wT
use strict;
use POSIX qw(strftime);

print strftime("%D %P",localtime);
[download]

-Blake