use Win32::OLE;
$vss = Win32::OLE->new('SourceSafe') or die "Can't start VSS";
$vssdb = $vss->VSSDatabase->Open($path, $user, $pwd) or die "Failed";