$envLwr =~ tr/a-z/A-Z/;
my $envUpr= $envLwr;

$envUpr = qx[cut -c3-6];
my $envCode= $envUpr;