+use strict;
+
+#use warnings;
+
+sub usage {
+
+ <<EOF
+usage $0 [ options ] file.xml ...
+
+-d enable xslt debug
+-v verbose level
+-f irspy.xsl set irspy_to_zeerex_xsl
+EOF
+}
+
+my $irspy_to_zeerex_xsl;
+my $xslt_debug;
+my $verbose = 0;
+
+GetOptions(
+ "d" => \$xslt_debug,
+ "v" => \$verbose,
+ "f=s" => \$irspy_to_zeerex_xsl,
+);
+
+die usage if $#ARGV < 0;
+XML::LibXSLT->debug_callback( \&xslt_debug ) if defined $xslt_debug;
+
+$ZOOM::IRSpy::irspy_to_zeerex_xsl = $irspy_to_zeerex_xsl
+ if $irspy_to_zeerex_xsl;
+