#!/usr/bin/perl -w
use strict;
use Win32::OLE;
use Dumpvalue;

my $dumpvalue = Dumpvalue->new;
my $server = Win32::OLE->new('DataServer.Access');
my $data = server->Object->Item;
my $tool = Win32::OLE->new('ToolServer.Tool');

$tool->clear;
$tool->Data = $data;
$dumpvalue->dumpValue(\$tool);