substr => sub{
      my $t2 = '20090123';
      my $year =substr ($t2,0,4); 
      my $mon = substr ($t2,4,2);
      my $day = substr ($t2,6,2); 
      die if (length($t2)!= 8);
      die if ($t2 =~ /\D/);
    },