#!/usr/bin/perl
use warnings;
use strict;
use Net::SNMP;

my $desc = '1.3.6.1.2.1.31.1.1.1.18';

my ($session, $error) = Net::SNMP->session(
                   -hostname => "172.16.103.22",
                   -community => 'unimedcg',
                   -version  => "SNMPv1",
                   -timeout  => "30",
                   -port => "161");

my $response = $session->get_request($desc);


  DB<1> p$session->hostname
172.16.103.22
                                                                                                             DB<2> p$session->community
Can't locate object method "community" via package "Net::SNMP" at (eval 35)[/usr/lib/perl5/5.8.8/perl5db.pl:628] line 2.