use strict;

my $useTR = "SOMETHING";
# or:  our $useTR = "SOMETHING";
# or:  use vars qw/ $useTR /;

if ($useTR) {
   print "useTR = $useTR\n";
}