#!/usr/bin/perl -s -Ilib

use warnings;
use strict;

use Data::Dumper;
use CROSS::DMOSS;

my $file = shift;
$file = 'dmoss.data' unless $file;

my $dmoss = CROSS::DMOSS::load($file);
print Dumper $dmoss;