my $dir_base = "/etc/nagios/objects/hosts/";
my @dirs = ( $dir_base . "linux/", $dir_base . "netview/", $dir_base . "switches/", $dir_base . "windows/" );