use POSIX qw/ strftime /;           # standard module
$today = strftime("%D", localtime); # localtime in list context