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=>NULL, tx=>NULL);
  %$datahashref{$ip} = %tmpHash unless exists $datahashref{$ip};

    }
}