my $Today = strftime("%Y%m%d",localtime(time));