I don't have the ClearCase software, so this a is a shot in the dark...

#!/usr/bin/perl

use strict;
use warnings;
use ClearCase::Proc::ClearTool;

my $cleartool = new ClearCase::Proc::ClearTool;

my($stat, $err) = $cleartool->start;
$stat and die $err;
$cleartool->run('lshistory -local');

print $cleartool->dump;
[download]

Perhaps this might help get you started?