my $SNMP_Target = "192.168.100";  # IP´s Hardcoded 
my $i = 20;
my $snmp_value;

my %printers;
my $count = 0;
my $total = 0;

while ($i <= 120){
	my $printer_ip = $SNMP_Target.$i;
	$snmp_value = `snmpget -c public -v1 -OvQ $printer_ip HOST-RESOURCES-MIB::hrDeviceDescr.1 2>1`;
	$snmp_value =~ s/\"//g;
	my $printer_name = $snmp_value;
	%printers = ($printer_name => { $printer_ip => $count, $total => $count} );
	$i++;
}