function fConvert { perl -wMstrict -- - $@ <<'ENDPERL' use RTF::TEXT::Converter; my $result = ''; my $object = RTF::TEXT::Converter->new( output => \$result ); foreach my $filename (@ARGV) { $object->parse_stream($filename); print $result; $result = ''; } ENDPERL } #### perl -wMstrict -MRTF::TEXT::Converter -00ne 'RTF::TEXT::Converter->new->parse_string($_)'