Example: Issuing a cleartool command (Perl)

# The syntax used here was compatible with ActiveState build 522.

use Win32::OLE;

# Connect to the top-level ClearTool object
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;

Feedback