#!/usr/bin/perl -w

## module calls
use strict;
use Net::SNMP;
  ## start snmp session
  my $s = Net::SNMP->session( -hostname  => "10.6.21.10",
                                -community => "private" );
  
  ## run the get
  my $ios_version = $s->get_request(".1.3.6.1.2.1.1.1.0");

  my $error = $s->error;

  ## close the snmp session
  $s->close;

  ## print results
  print "$error\n$ios_version\n\n";