my $adapter = Win32::OLE->new("ScriptAdapter.Adapter");
my $mapDoc  = $adapter->WrapObject($esriRenderer->MapDocument);
print $mapDoc->DocumentFileName;