I'm having issues setting a value for an OLE object. After I initialize and open the application I need to set a value for Environment wich loks like this from the dump:

$VAR1 = bless( {
       'Test' => bless( {
              'Environment' => bless( {}, 'Win32::OLE' ),
              ...
[download]

How do I set a value for Environment? I've tried several things like this:

    my $testObj = Win32::OLE->new( $self->{qtp}->Test->Environment );
    $testObj->{'DUT_Version'} = "123";

    $self->{qtp}->Test->Environment->{'Value'} = $testObj;
[download]

Any idea what I'm doing wrong? Thanks