Select Code to Download

sub by_date {
   my ($monA, $monB, $dayA, $dayB, $yearA, $yearB);
...
   # $k->[1] is the value.
   ...
}