my ($ymd,$iter) = $old_serial =~ /(\d{4}\d{2}\d{2})(\d{1,2})/;
my $new_serial = strftime("%Y%m%d",gmtime())."01";
if ($ymd eq strftime("%Y%m%d",gmtime())) {
my ($ymd,$iter) = $old_serial =~ /(\d{4}\d{2}\d{2})(\d{1,2})/;
my $new_serial = strftime("%Y%m%d",gmtime())."01";
if ($ymd eq strftime("%Y%m%d",gmtime())) {