open (TEMP,"cleartool checkout -nc $element_pathname |"),||die "Failed to run cleartool";
while (<\TEMP>){
               print "The message is - $_";
               )