Select Code to Download

open (FIND_OUTPUT , "$CT find . -version'brtype($branch)' -print -all 
+|");

...
foreach $key (keys %ccase_filehash) {
  print "$key: $ccase_filehash{$key} \n";
}

system ("$CT find $vob -version 'brtype($branch)' -print $all > /tmp/f
+ind.out");
open (FIND_OUTPUT , "/tmp/find.out");
...
foreach $key (keys %ccase_filehash) {
  print "$key: $ccase_filehash{$key} \n";
}