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