You might try:
$tool->{Data} = $data; [download]
In reply to Re: Working with COM objects by ig in thread Working with COM objects by MadraghRua