Select Code to Download

while(my $row = $sth->fetchrow_hashref()) {
   ($cntct_date) = $row->{"CONTACT_DATE"};

   $earliest_date = "30000101";

$date1 = ParseDate($earliest_date);
$date2 = ParseDate($cntct_date);
...
  print "$cntct_date was earliest--save it.\n";          
  $earliest_date = $cntct_date;
};