my $result = $session->get_next_request ( varbindlist => [ $param{sysName}.$1] ); die "request error: ".$session->error unless ( defined $result ); #### unless ( $param{sysName} =~ /$param{sysName}(.*)/ ) {last} #### unless ( $param{sysName} =~ /$param{sysName}(.*)/ ) {next}