#!/usr/bin/perl 

use strict;
use warnings;
use XML::TMX::Writer;

my $tmx = new XML::TMX::Writer();
$tmx->start_tmx( 
        OUTPUT => '/root/Desktop/log.tmx',
        SEGTYPE => qw[ :p :xpl :ul :li :eul ],
        DATATYPE => 'ipf',
);
$tmx->end_tmx();