use Net::SNMP;

my $sysDescr = '.1.3.6.1.2.1.1.1.0';

my $sess = Net::SNMP->session(
  -hostname  => $ARGV[0],
  -community => $ARGV[1],
  -timeout   => $ARGV[2],
  -retries   => $ARGV[3],
) or die "no session!$/";

print time, $/;

my $res = $sess->get_request( -varbindlist => [ $sysDescr ] )
  or warn "no get: *error message here*$/";

print time, $/;

print $res->{$sysDescr}, $/;