sub loadIPs {

  my $datahashref = shift;
  my $parmhashref = shift;
  my $IPs   = '1.3.6.1.2.1.10.127.1.3.3.1.3';

my ($session, $error) = Net::SNMP->session(%$parmhashref);

my $reply = $session->get_table(-baseoid=> $IPs);
my %reply =  %$reply;

while ( my ($oid, $ip) = each(%reply) ) {

  my %tmpHash = ('rx'=>undef, 'tx'=>undef);
  $$datahashref{$ip} = %tmpHash unless exists $$datahashref{$ip};

    }
}