#!/usr/bin/perl
use strict;
use FindBin;
use lib "$FindBin::Bin/../../lib";
my $filename = shift;
open my $file, '<', $filename or die "Can't open $filename: $!\n";
my $content = do {local $/; <$file> };
print MojoMojo::Formatter::DocBook->to_xhtml( $content );
__END__
=head1 Usage
dbk2xhtml.pl docbookfile
=head1 AUTHORS
Daniel Brosseau <dab@catapulse.org>
=head1 LICENSE
This script is licensed under the same terms as Perl itself.
=cut