Usage: pod2rtf [infile] [outfile]

    If infile isn't defined defaults to STDIN
    If outfile isn't defined defaults to STDOUT
[download]

#!/usr/bin/perl -w

use strict;
use Pod::Simple::RTF;


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


if (defined $ARGV[0]) {
    open IN, $ARGV[0] or die "Couldn't open $ARGV[0]: $!\n";
} else {
    *IN = *STDIN;
}

if (defined $ARGV[1]) {
    open OUT, ">$ARGV[1]" or die "Couldn't open $ARGV[1]: $!\n";
} else {
    *OUT = *STDOUT;
}


$parser->output_fh(*OUT);
$parser->parse_file(*IN);


__END__
[download]