#!/usr/bin/perl

use strict;
use warnings;

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

use Ernad::Learn::Dokli;

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

my $d=Ernad::Learn::Dokli->new({'impna' => $impna,
                                'verbose' => 1});
my $dokli_file=$d->set_dokli();

if(not $dokli_file) {
  $d->build_dokli();
  my $dokli_file=$d->set_dokli();
}

__END__;