Select Code to Download

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

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

$sth->execute;

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

$sth->execute;