my $database= new Win32::OLE:: "SourceSafe"; $database->Open ($name);