perl program error please help me

Hi,

I am running below perl program i am getting error as below. Please help me why i am getting this error.

Result ERROR: Expected OBJECT IDENTIFIER in dotted notation. , public

Program

 #! /usr/local/bin/perl

   use strict;
   use Net::SNMP;


sub getdata
{
   my ($session,$error,$id);

   my ($server,$id);

#   ($server,$id) = @_;
    $server = "$_[0]";
    $id = "@_[1]";

        print "$server - $id \n";
#    $server = "gbssun";
#    $id = ".1.3.6.1.2.1.2.2.1.10.2";


   ($session, $error) = Net::SNMP->session(
      -hostname  => shift || $server,
      -community => shift || 'public',
   );

   if (!defined($session)) {
      printf("Session ERROR: %s. \n", $error);
      exit 1;
   }


   my $result = $session->get_request(
      -varbindlist => [$id] );

   if (!defined($result)) {
      printf("Result ERROR: %s. $result, $id\n", $session->error);
      $session->close;
      exit 1;
   }

   printf("Input octets for host '%s' is %s\n",
      $session->hostname, $result->{$id}

   );
   $session->close;

#   exit 0;

}

###################33
# Main Code
#######################333

getdata("gbssun","public","1.3.6.1.2.1.2.2.1.10.2");

#getdata();