CREATE OR REPLACE FUNCTION get(character varying)
  RETURNS json AS
$BODY$
use warnings;
use strict;
use LWP::Simple;
my $content = get($_[0]);
$content =~ s/ /%20/g;
return $content;
 
$BODY$
  LANGUAGE plperlu VOLATILE
  COST 100;