open(my $FH, "cleartool find /vobs/41Rational_Val/. -all -print|")
    or die "Something went wrong\n";

print STDERR "Reading cleartool command, line ";
while (<$FH>) {
    do_something_here;
    unless ($. % 200) { # every 200 lines
        print STDERR "$. ";
  }
}