# get Discontinued 
my $sql = qq!SELECT DISTINCT("Discontinued")::CHAR AS disc  
             FROM "Products" ORDER BY 1 DESC !;