#!/usr/bin/perl -w

use strict;
use lib '.';
use Rdiv;
use Prefix;
use Opt;
use Eseries;

sub main() {
my $str = "";
my $usagetxt = "find combination of E6 resistors when combined are close to value on command line\n";

    my %opt;
    @ARGV = Opt::opt(\%opt, 0, @ARGV);
    if (@ARGV == 0) {
	Opt::usage(0, $str, $usagetxt );
    }
    Prefix::decode_hash(\%opt);


    Rdiv::rfind(\%opt, @ARGV);
}

main();