Select Code to Download

print Dumper($ref), "\n";

foreach my $oid (values %{$ref->{OBJECT}}) {

use Data::Dumper;

use JSON;