my $vss = Win32::OLE->new('SourceSafe.0') || die "Can't create VSS object\n"; $vss->Open($vssINI, $vssUser, $vssPass); die "Error Opening VSS db: " . Win32::OLE->LastError() if Win32::OLE->LastError() != 0;