Listing of xtf2rtf.plx

#!/usr/bin/perl
use warnings; use strict;
use lib '/usr/local/share/cdl/tools';
use CDL::XML;
use CDL::XTF2::RTF;
undef $/;
$_ = <>;
my $xtf = load_xml_string($_);

CDL::XTF2::RTF::generate($xtf,'test.rtf');

1;