my $update = $ldb->prepare("UPDATE LOW_PRIORITY $ldbtable SET $mtime=? WHERE software=?");
foreach my $key1 ( keys %prog_numbers) ) {
  $update->execute($prog_numbers{$key1}, $key1);
}