# ここで使用する構文は、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;