#!/usr/bin/perl --

use strict;
use warnings;

use XML::LibXML;
use XML::Parser;

for my $so( grep /xml/i, @DynaLoader::dl_shared_objects ){
  print "$so\n";
  print `ldd $so\n`;
}
__END__