Select Code to Download

#!/usr/bin/perl

...
  my @crap = %$result;
  return @crap;
}

my $result = $s->get_table( -baseoid => "$oid" ) || die printf("ERROR:
+ %s.\n", $s->error);