sub fun1 {

  foreach (printers ){
        my ($session, $error) = Net::SNMP->session(
              -hostname  => $ip,
              -community => chomp($cmnt),
              -port      => 161,
              -timeout   => 5,
        );

        my $result = $session->get_request(
              -varbindlist => [$OID]
        );

     eval {
        local $SIG{ALRM} = sub { die "alarm\n" }; 
        alarm 5;
            $result = $session->get_request(
                  -varbindlist => [$oid]
            );
        alarm 0;
        };
            $row .= lc($result->{$oid})."-";
   }
}