# perl -s testCLO.pl -useTR
use strict;
no strict "vars";  


if ($useTR) {

    # do TR processing.

    print "useTR=$useTR\n";

}