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

##</code><code>##

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

##</code><code>##

use Data::Dumper;

##</code><code>##

use JSON;