my ($day,$mon,$year)=(localtime(time))[3,4,5];
my $date=sprintf("%0d%02d%02d",$year+1900,$mon+1,$day);