#!/usr/bin/perl
use DBI;
use DBD::Oracle qw(:ora_types);
use Data::Dumper;

my $dbh = DBI->connect( "dsn", "user", "pass", { RaiseError => 1 } );
$dbh->trace(15,"trace");

my $query = $dbh->prepare( qq{BEGIN schema.package.TEST('blah', ?); commit; END;});

my $xml;
$query->bind_param_inout(1, \$xml, 32000, { ora_type => ORA_XMLTYPE } );
$query->execute();
$dbh->DESTROY;
undef $dbh;

print Dumper($xml);