CREATE OR REPLACE FUNCTION get(input_url character varying)
  RETURNS json AS
$BODY$
use warnings;

import LWP::Simple;
my $url = input_url;
my $content = get($url);
$content =~ s/ /%20/g;
return $content;
 
$BODY$
  LANGUAGE plperl VOLATILE
  COST 100;