#!/usr/bin/perl
#Time-stamp: "2001-05-25 21:27:04 MDT"

use Pod::PXML;
if(@ARGV == 0) {
  print '', Pod::PXML::pod2xml(\join '', <STDIN>);
} elsif(@ARGV == 1) {
  print '', Pod::PXML::pod2xml($ARGV[0]);
} else {
  print STDERR "$0: Too many arguments\n";
}
