#!/usr/bin/perl -w
use strict;
use Win32::OLE;
my $vss = Win32::OLE->new('SourceSafe.0');
$vss->Open('C:\VSS\srcsafe.ini', 'admin', '');
# error checking
if (Win32::OLE->LastError() != 0){
    print 'Error: ', Win32::OLE->LastError();
}

##</code><code>##

Win32::OLE operating in debugging mode: _Unique => 1
Win32::OLE(0.1709) error 0x80040154: "Class not registered" at C:\Users\boss\VSS-analysis\accessvss.pl line 4.
	eval {...} called at C:\Users\boss\VSS-analysis\accessvss.pl line 4
Can't call method "Open" on an undefined value at C:\Users\boss\VSS-analysis\accessvss.pl line 9.