foreach my $probe ( 1 .. $probe_count ) { my $location = "$thermbase.1.3.0.$probe"; my $temp = "$thermbase.1.4.0.$probe"; my $thresh = "$thermbase.1.5.0.$probe"; my $cond = "$thermbase.1.6.0.$probe"; my $result = $session->get_request( -varbindlist => [ $location, $temp, $thresh, $cond ] ); if ( !defined($result) ) { printf( "ERROR: %s.\n", $session->error ); $session->close; return; }