#!/usr/bin/perl -w

# Quick and dirty script for converting perl POD to HTML
# Tex Thompson, 2004 <tex@biosysadmin.com>

use strict;
use Pod::HtmlEasy;

my $podhtml = Pod::HtmlEasy->new() ;

foreach my $file (@ARGV) {
   if ( ! -f $file ) {
      print STDERR "Error: $file does not exist\n";
      next;
   }

   my $html = $podhtml->pod2html( $file ) ;

   my $outfile = $file . '.html';
   open OUTFILE, ">$outfile" or die $!;
   print OUTFILE "$html\n" ;
   close OUTFILE or die $!;
}