例: バージョンから発生するすべてのブランチについての情報を表示する (Perl)

# ここで使用する構文は、ActiveState ビルド 522 と互換性があります。

use Win32::OLE;

# 最上位の Rational ClearCase オブジェクトに接続します。
my $cc = Win32::OLE->new('ClearCase.Application')
     or die "Could not create Application object¥n";

# バージョンから発生しているブランチをループし、そのパス (ICCBranch
# のデフォルト プロパティを使用) およびその他の情報を表示します。

my $ver = $cc->Version("b:¥¥caroltest¥¥testelem.c@@¥¥main¥¥0")
     or die("Could not get version: ", Win32::OLE->LastError(), "¥n");
my $path = $ver->Path;
my $subbranches = $ver->SubBranches;
my $enum = Win32::OLE::Enum->new($subbranches);

while (defined(my $branch = $enum->Next)) {
     print($branch->Path, " branch sprouting from ", $path, " has ",
          $branch->Versions->Count, " version(s); latest version is ",
          $branch->LatestVersion->VersionNumber, "¥n");
}