Select Code to Download

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