+print "\n";
+
+for ($iter = 0; $iter < $count; $iter++) {
+
+ $prog = shift @ARGV;
+ $test = shift @ARGV;
+
+ $query = "Select RUN, VALUE from Tests where TEST = '$test' AND NAME = '$prog' ORDER BY RUN";
+ #print "\n$query\n";
+
+ my $sth = $dbh->prepare( $query) || die "Can't prepare statement: $DBI::errstr";;
+
+ my $rc = $sth->execute or die DBI->errstr;
+
+ while(($da,$v) = $sth->fetchrow_array)
+ {
+ print "$da $v\n";
+ }
+
+ print "e\n";