#!usr/bin/perl

use strict;
use warnings;
use Convert::TBX::UTX qw(utx2min);

die "Usage: $0 <file.utx> <output>\n"
	unless @ARGV == 2;

utx2min(@ARGV);

__END__

=head1 NAME

utx2tbx - Convert UTX to TBX-Min.

=head1 USAGE

	utx2tbx ('/path/to/input.utx') ('/path/to/output')
	
=head1 EXAMPLE

	% utx2tbx Sample.utx Sample.tbx
	
=head1 DESCRIPTION

utx2tbx converts specified UTX files into specified TBX-Min files.

=head1 AUTHOR

James Hayes <james.s.hayes@gmail.com>

=head1 COPYRIGHT AND LICENSE
 
This software is copyright (c) 2014 by Alan Melby.
 
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
 
=cut