my $xml = "<hubba><bubba></bubba></hubba>";

my $sth = $dbh->prepare(<<sqlend);
 insert into abba values (1, :xml)
sqlend

$sth->bind_param(":xml", $xml, { ora_type => ORA_XMLTYPE } );

$sth->execute;

##</code><code>##

my $sth = $dbh->prepare(<<sqlend);
 select id, xmltype.getclobval(xml) xml from abba where id = 1
sqlend

$sth->execute;