#!/usr/bin/perl
use strict;
use warnings;
$|++;
#use Data::Dumper;

use lib '../lib';

use DNO::Documentation qw( doc_setup usage );
doc_setup();

use DNO::Passwords qw( passwords );
my $pw = passwords( qw/ snmp.ro / );

#print Dumper($pw);

use DNO::Devices qw( devices );
my @hosts = devices();

#print Dumper(\@hosts);

use DNO::Options qw( get_options );

my ($def, $opt);

$def = [
	[ 'maxfork', '=i', 20 ],
	[ 'timeout', '=i',  2 ],
	[ 'retries', '=i',  2 ],
];

$opt = get_options( $def );

# ... do something

__END__
$ dosumthin --host mary --list domain1,domain3 --password snmp.ro=public --timeout 5 --retries 4