#!/usr/bin/perl -w

use strict;
use POSIX qw(strftime);

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