#!/usr/bin/perl

use strict;
use warnings;

use Carp qw(confess);
use Data::Dumper;
#use Getopt::Std;

use Ernad::Args;
use Ernad::Erimp;
use Ernad::Presort::Seeds;

our ($impna, $e, $repcode);
&Ernad::Args::parse();
$e=Ernad::Erimp->new({'impna'=> $impna,
                      'repcode'=>$repcode,
                      'verbose'=>3});
if(not $repcode) {
  print "I don't see your repcode.\n";
  exit;
}

my $s=Ernad::Presort::Seeds->new({'e'=>$e});
$s->setup();
$s->setup_for_report($repcode);
$s->get_sidin_exfits();

exit;

__END__;