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 }