##
$VAR1 = \bless( {
'_translate' => 0,
'_security' => bless( {
'_error' => undef,
'_community' => 'public',
'_version' => 0
}, 'Net::SNMP::Security::Community' ),
'_transport_argv' => [
'-retries',
'2',
'-hostname',
'127.0.0.1',
'-port',
'161',
'-maxmsgsize',
'1472',
'-domain',
'udp/ipv4',
'-timeout',
'3'
],
'_pdu' => undef,
'_callback' => undef,
'_nonblocking' => 0,
'_version' => 0,
'_transport' => bless( {
'_dest_name' => '�',
'_max_msg_size' => 1472,
'_sock_name' => '',
'_timeout' => 3,
'_error' => undef,
'_sock_hostname' => '',
'_dest_hostname' => '127.0.0.1',
'_socket' => bless( \*Symbol::GEN0, 'IO::Socket' ),
'_retries' => 2
}, 'Net::SNMP::Transport::IPv4::UDP' ),
'_error' => undef,
'_context_engine_id' => undef,
'_context_name' => undef,
'_delay' => 0,
'_discovery_queue' => [],
'_hostname' => '127.0.0.1'
}, 'Net::SNMP' );
####
push (@request, ($sysDescr,$sysUpTime));
$output = $session->get_request(
-varbindlist => [\@request] ,
);