—#!/usr/bin/perl
use
strict;
use
warnings;
use
FindBin;
my
$filename
=
shift
;
open
my
$file
,
'<'
,
$filename
or
die
"Can't open $filename: $!\n"
;
my
$content
=
do
{
local
$/; <
$file
> };
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