例: cleartool コマンドを発行する (Perl)

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

use Win32::OLE;

# 最上位の ClearTool オブジェクトに接続します。
my $ct = Win32::OLE->new('ClearCase.ClearTool')
     or die "Could not create ClearTool object¥n";
$output = $ct->CmdExec("pwv")
     or die("Cleartool returned error: ", Win32::OLE->LastError(), "¥n");
print $output;