sub Write { my $self = shift; my $value = Variant(VT_VARIANT|VT_BYREF, shift); $self->{item}->Write($value); &Win32::OLE::OPC::_check_error("OPC::Item::Write " . $self->{_serverprogid}); }