use Win32::OLE::Variant;
my $y = Variant(VT_BSTR || VT_BYREF, "");
$RL->RLVersion(1, $y);
print $y;