sub MysqlIN {

my %dateparts = ( YEAR => '', MONTH => '', DAY => '', @_, );
my $element;

foreach $element (%dateparts) {
if (!$dateparts{$element}) {
   die "Invalid date value";
   exit;
}

my $mysqldate = join ("-", $dateparts{YEAR}, $dateparts{MONTH}, $datepart{DAY});

return $mysqldate;
}