I've never used WWW::Mechanize before, but reading the perldoc on it suggests that you might try the select() method, like:

$mech->select('birth_month', '01');
$mech->select('birth_day', '17');
[download]

...roboticus