call rest api from postgresql

1CREATE OR REPLACE FUNCTION restful.put(auri character varying, ajson_text text)
2 RETURNS text
3 LANGUAGE plperlu
4 SECURITY DEFINER
5AS $function$
6  use REST::Client;  
7  use Encode qw(encode);
8  my $client = REST::Client->new();    
9  $client->getUseragent()->proxy( 'https', 'http://some-proxy/' ); # use for proxy authentication
10  $client->addHeader('Content-Type', 'application/json');          # headers
11  $client->POST( $_[0], encode('UTF-8', $_[1]));                   # encoding
12  return $client->responseContent();  
13$function$
14