#!/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;

my $parser = Pod::XML->new();
if (@ARGV) {
    $parser->parse_from_file(@ARGV);
}
else {
    $parser->parse_from_filehandle(\*STDIN);
}
