#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use Sys::RunAlone;

use Ernad::Learn;

my $impna = $ARGV[0] // die "no impna";

my $l=Ernad::Learn->new({'impna' => $impna,
                         'verbose' => 1});
$l->model_all_reports();

__END__;