Select Code to Download

use IPC::Run3::Shell ':FATAL', [ xmllint => qw/ xmllint --noout
    --nonet --path /, $external_schemas_path, '--schema'];
my $pass = eval { xmllint($schema, $file); $?==0 };
print $file, ": ", $pass ? "PASS" : "FAIL", "\n";