use Win32::OLE::Variant;
# ...
my $filename = Variant(VT_BSTR|VT_BYREF, 0);
$XRawfile->GetFileName($filename);