diff --git a/misc/migration_tools/check_parser.pl b/misc/migration_tools/check_parser.pl
new file mode 100755
index 0000000000..9ee334bbc4
--- /dev/null
+++ b/misc/migration_tools/check_parser.pl
@@ -0,0 +1,5 @@
+ #!/usr/bin/perl
+ 
+use XML::SAX::ParserFactory;
+$parser = XML::SAX::ParserFactory->parser();
+print $parser;
\ No newline at end of file