Select Code to Download

# perl -s testCLO.pl -useTR
use strict;
...
    print "useTR=$useTR\n";

}

use strict;
no strict "vars";