#!/usr/bin/perl

use strict;
use warnings;
use lib qw(lib);
use Chronology;

unless(@ARGV == 4) {
   print STDERR "Converts between formats. Usage:\n  convert.pl file_from format_from file_to format_to\n";
   exit(-1);
}

my $c = new Chronology();
$c->load($ARGV[1], $ARGV[0]);
$c->save($ARGV[3], $ARGV[2]);