Select Code to Download

postgres$ createlang plperlu mydb

create function palindrome(text) returns boolean 
language plperl 
...
  return ($canonical eq reverse $canonical) ? "true" : "false";

';

select name, region, country, population
from towns
where palindrome(name);