foreach my $element ( keys %dateparts ) {
	die "No datepart!: $!" unless defined $dateparts{$element};
}

##</code><code>##

my %dateparts = @_;

##</code><code>##

sub MySQLIN( YEAR => '1999', DAY => '10', MONTH => '3');