#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use Data::RecordStore::Converter;

my( $source_dir, $dest_dir ) = @ARGV;
eval {
    Data::RecordStore::Converter->convert( $source_dir, $dest_dir );
};
if( $@ ) {
    print STDERR "$0 : $@\n";
}

exit;
