Select Code to Download

a=(6) uuu=(0)  ported=(1)  porterb=()  porter=()    porter is defined

  
my $a = 6;
my $porter = ($a & 1) != 0;
...
   $ppp=(defined($porter)? 'defined':'undefined' );
   print STDERR "a=($a)   uuu=($uuu)  ported=($ported)
      porterb=($porterb)  porter=($porter)    porter is $ppp  \n"    ;