[id(0x00000003), helpstring("method GetFileName")]
void GetFileName(BSTR* pbstrFileName);
##</code><code>##

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