>perl -wMstrict -le
"BEGIN {
   use constant X   => (`uname -m` =~ /x86/) ? 1 : 0;
   use constant FOO => (X ? 'true' : 'false');
   }
 print FOO;
 print q{X '}, X, q{'};
"
true
X '1'