#!/usr/bin/perl -w

# $Id: pod2xml,v 1.2 2000/11/27 11:39:06 matt Exp $

=pod

=head1 NAME

pod2xml - convert POD to XML

=head1 SYNOPSIS

  pod2xml [infile [outfile]]

=head1 DESCRIPTION

Takes the file specified on the command line and converts its POD
contents to XML.

=head1 SEE ALSO

L<Pod::Parser>, L<Pod::XML>

=cut

use Pod::XML;

print "Using Pod::XML version $Pod::XML::VERSION.\n";

my $parser = Pod::XML->new ();

if ( @ARGV )
{
  $parser->parse_from_file ( @ARGV );
}
else
{
  $parser->parse_from_filehandle ( \*STDIN );
}
