use JSON;
use Data::Dumper;
-db_setocean($ocean);
-db_connect();
+my $dbh= dbw_connect($ocean);
my $sth= $dbh->prepare("SELECT archipelago,islandid,islandname
FROM islands WHERE islandname LIKE ?
}
$canontext= join ' | ', map { $_->[2] } @results;
-
return $output->();
</%perl>