sub MysqlIN {
    my %dateparts= ( YEAR => '', MONTH => '', DAY => '', @_ );
    my $element;
    foreach $element ( keys %dateparts ) {
        if (  0 < $dateparts{$element}  ) {
            die "Invalid date value";
        }
    }
    my $mysqldate= join "-", @dateparts{qw(YEAR MONTH DAY)};
    return $mysqldate;
}