#!/usr/bin/perl -s

use strict;
use warnings;

use XML::TMX::CWB;

my $source = shift or die "Source corpus name is required\n";
my $target = shift or die "Target corpus name is required\n";

our ($slang,  # source language
     $tlang,  # target language
     $o);     # output filename
my %ops;
$ops{source_lang} = $slang || "LANG1";
$ops{target_lang} = $tlang || "LANG2";
$ops{output}      = $o     || undef;

XML::TMX::CWB->toTMX(source => $source,
                     target => $target,
                     %ops);

