my ($sec,$min,$hour,$day,$mon,$yr19,@rest) =   localtime(time);#######To get the localtime of your system
my $month =$mon +1;
my $year =$yr19+1900;
print "$month$day$year\n";