SNMP Problem

Applications IP Networking
1

Hi, basically I'm just looking at the O'Reilly book 'Essential SNMP' and am following one of the examples. The code in the example is:

#!/usr/bin/perl
use SNMP::Util;
my $MIB1 = $ARGV[0];
my $HOST = $ARGV[1];
($MIB1) && ($HOST) || die "Usage: $0 MIB_OID HOSTNAME";
my $value = &snmpget("$HOST","$MIB1");
if ($value) { print "Results :$MIB1: :$value:\n"; }
else { warn "No response from host :$HOST:\n"; }

And the errors I'm getting are:

"my" variable $value masks earlier declaration in same statement at /usr/perl5/5.8.4/lib/SNMP/Util.pm line 804.
"my" variable @oid_names masks earlier declaration in same statement at /usr/perl5/5.8.4/lib/SNMP/Util.pm line 1636.
Undefined subroutine &main::snmpget called at ./snmpTest line 8.

Any ideas?