tye beat me to it. see his post above. oh well, just ignore me :)

I'd change

my $mysqldate = join ("-", $dateparts{YEAR}, $dateparts{MONTH}, $datep
+art{DAY});
[download]

into

my $mysqldate = join ("-", @dateparts{ qw(YEAR MONTH DAY) });
[download]

@dateparts{qw(YEAR MONTH DAY)} is just an easier way of saying

@dateparts{("YEAR", "MONTH", "DAY")}
[download]

which is an easy way of saying

($dateparts{YEAR}, $dateparts{MONTH}, $datepart{DAY})
[download]

-- ar0n (just another perl joe)