my $s = '20121018';
    my $date;
    
    eval { $date = Time::Piece->strptime("$s"); };
    if ( $@ ) {
        die qq{Error : the date doesn't exist or is not like YYYYMMDD\n}
    }
    else {print qq{date OK\n}} ;