#! c:/perl/bin/perl.exe
#
use strict;
 
use Data::Dumper;
use Storable qw(store retrieve freeze thaw dclone);
 
use VMware::VILib;
use VMware::VIRuntime;

	my $datacenter_views = Vim::find_entity_views( view_type=> 'Datacenter');
	
	foreach my $DataCenter (@$datacenter_views)
	{
		store(\$DataCenter, 'c:/DCDump') or die "Can't store %a in DCDump!\n";
	}


	my $colref = retrieve('c:/DCDump'); 
	die "Unable to retrieve from DCDump!\n" unless defined $colref;
	
	print Dumper $colref;