for (keys %oid) {
  if (defined(my $response = $session -> get_table(-baseoid => $oid{$_}))) {
    print "\n == $_ == $oid{$_} ==\n";
    for my $r(oid_lex_sort(keys(%{$response}))) {
      print($response -> {$r}, ",\n");
    }
  }
  else { print "Error: ",($session -> error(), ",\n"); }
}