use strict;
use Lyo::OSLC::CQ::CM;
use Data::Dumper;
use Encode qw(encode decode);

...

my $client = Lyo::OSLC::CQ::CM->new;

...

my $data    = $client->oslcWhere(...); # get data from ClearQuest
my $xml     = Dumper($data);
my $xml_out = encode('UTF-8', $xml);
print $xml_out;