# 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;