#!/usr/bin/perl -w

use strict;
use POSIX qw(strftime);

my $date = strftime("%-m/%e/%Y", localtime);

##</code><code>##

my $date = strftime("%m/%e/%Y",localtime);