var server = new ActiveXObject("DataServer.Access");
var data = server.Object.Item
var tool = new ActiveXObject("ToolServer.Tool"); 

findResult(data,tool);

function findResult(data,tool) {
   tool.Clear;
   tool.Data = data;
...
}

##</code><code>##

#!/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);

##</code><code>##

'Completed' => 0
'Error' => ''
'Data' => undef
'Results' => Win32::OLE=HASH(0x209d2f4)
   'Count' => 0
   'Item' => undef
'Settings' => Win32::OLE=HASH(0x2098ae4)
...

##</code><code>##

$tool->Data = $data;
$tool{Data} = $data;
$tool{'Data'} = $data;
$tool{'Data'} = $$data;