Usage: pod2rtf [infile] [outfile] If infile isn't defined defaults to STDIN If outfile isn't defined defaults to STDOUT #### #!/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__