sub parsedt {
my ($dt,$min,$max) = (shift,shift,shift);
my $epoch = $parser->parse_datetime($dt);
+ warn "dt=$dt min=$min max=$max epoch=$epoch\n";
return $epoch->epoch
if ($parser->success && $epoch->epoch >= $min && $epoch->epoch <= $max);
fatal("invalid date $dt (min=$min, max=$max)");