my $filename = Variant(VT_BSTR|VT_BYREF, VT_NULL);