#!/usr/bin/perl

# gettdate.pl
# Written by Jeff Borders
#
# Perl script that returns 
# todays date in the 
# format MMDDYY.

use strict;
use warnings;

use Date::Calc qw( Today Add_Delta_YMD);

my ($year,$month,$day,$date);

($year,$month,$day) = Add_Delta_YMD(Today (),-2000,0,0);

$date = sprintf("%02d%02d%02d\n",$month,$day,$year);
print $date;