It can be done easily as :

use POSIX qw(strftime);

my $date = strftime "%m/%d/%Y", localtime;
print $date;