#!/usr/bin/perl

use warnings;
use strict;
use Time::Piece;

my $t = Time::Piece->new();

my $date = $t->strptime(sprintf("%02d",$t->mon).$t->day_of_month.$t->year, '%m%d%Y');

print"\n $date\n";