Select Code to Download

my $sth = $dbh->prepare("SELECT 
  snd.name, snd.country, m.item, m.eqty, m.price, m.line, m.prodct FRO
+M
...
print $q->header( -type => 'application/json' ),$json;

}