#!/usr/bin/perl

use strict;
use warnings;

use Getopt::Std;

use Ernad::Css;
use Ernad::Erimp;

my %o;
Getopt::Std::getopts("t", \%o);
my $do_test=$o{'t'} // '';

my $impna=$ARGV[0];
if(not defined($impna)) {
  print "fatal: I need the impna\n";
  exit;
}

our $e=Ernad::Erimp->new({'impna'=>$impna});
if(not $e) {
  print "invalid impna $impna\n";
  exit;
}

&Ernad::Css::file($do_test);