print $q->header();
foreach my $row ( @$Results ) {
print "$row->{'DOC_SUB_TYPE'}|$row->{'DESCRIPTION'}\n";
}