my($sec,$min,$hour,$mday,$mon,$year) = localtime;
my $current_time = sprintf("%02d%02d%02d%02d%02d%02d", $year-100,$mon+1,$mday,$hour,$min,$sec);