#!/usr/bin/perl
($thisMonth, $thisYear, $thisDay) = split(/:/,`date +%m:%Y:%d`);
($thisMonth, $thisDay, $thisYear ) = MMDDYYYY();
sub MMDDYYYY(){
   my @timeList = localtime(time);
   my $MM = sprintf("%02d",$timeList[4]+1);
   my $YYYY = normalizeYear($timeList[5]);
   my $DD = sprintf("%02d",$timeList[3]);
   return ($MM,$DD,$YYYY);
}
sub normalizeYear {
   local ($yearToNormalize) = @_;
   if ($yearToNormalize < 90) {
      sprintf "20%.2d",$yearToNormalize;
   }elsif ($yearToNormalize < 100) {
      sprintf "19%.2d",$yearToNormalize;
   }else {
      sprintf "%.4d",$yearToNormalize;
   }
}
return 1;