# the object name is actually SourceSafe.0
my $vss = Win32::OLE->new('SourceSafe.0');

# you must include the path and filename
# of the vss ini file you want, e.g.
# c:\data\sourcesafe\dev\srcsafe.ini
$vss->Open($srcsafe_ini, $user, $pwd);

# error checking
if (Win32::OLE->LastError() != 0)
{
    print 'Error: ', Win32::OLE->LastError();
}