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;