use strict;
use warnings;
use LWP::UserAgent;
use HTTP:Headers;
 
my $headers = HTTP::Headers->new();
my $url = "http://host:port:apex/<application_workspace>/<restfull service module>/<uri template>/
my $sendthis = ('<?xml version="1.0" enconding="utf-8"?>
<students>
<row>
       <name>Mark</name>
      <age>30</age>
</row>
</students>';)
 
$headers -> header('Content-Type' => 'text/xml; charset=utf-8');
my $request = HTTP:Request->new('POST', $url, $headers, $sendthis);
 
$request-> protocol('HTTP/1.1');
my $browser = LWP::UserAgent->new();
my $response = $browser->request($request);
my $gotthis= $response->content();
my $the_file_data = $response->content();
 

##</code><code>##

Method: POST
Source type: PL/SQL
MIME Types allowed: blank
require secure access: none
 
source:
{declare
doc varchar2(32000);
begin
insert into table <column name>
values(doc);
commit;
end;

##</code><code>##

{ create table <tablename>
(column name XMLType>);