added tools

diff --git a/tools/pod2xhtml.pl b/tools/pod2xhtml.pl
new file mode 100644 (file)
index 0000000..4e0edc9
--- /dev/null
+++ b/tools/pod2xhtml.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use File::Spec;
+use Pod::Xhtml;
+
+die "Usage: pod2xhtml filename\n" if $#ARGV < 0;
+
+my $parser       = Pod::Xhtml->new(FragmentOnly => 1);
+
+my $file_name    = $ARGV[0];
+$file_name       =~ s/(\.pm|\.pod)$/.html-inc/i;
+$parser->parse_from_file($ARGV[0], $file_name);