#!/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();
}