#!/usr/bin/perl
use strict;
use Getopt::Std;
use IO::Socket;
use Net::SNMP;
---------------------
my $remote    = $opt_t;
my $community = $opt_c || "public";
my $port      = $opt_p || 161;
my $snmpver   = $opt_v || 1;
my $retries   = $opt_r || 2;
my $timeout   = $opt_T || 40;

my $timeout   = $opt_T || 40;